Bonjour,
j'ai le code vb suivant qui m'affiche des résultats filtrés:

Private Sub CommandButton1_Click()
Dim rngDonnees As Range
Dim rngCritere As Range

  Worksheets("Résultat").Cells.Clear
  Set rngDonnees = Worksheets("Données").Range("a1").CurrentRegion
  Set rngCritere = Worksheets("Critères").Range("a1").CurrentRegion
  rngDonnees.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=rngCritere, Unique:=False
  rngDonnees.Copy Destination:=Worksheets("Résultat").Range("a1")
  If Worksheets("Données").FilterMode Then Worksheets("Données").ShowAllData
  Worksheets("Résultat").Activate
   
End Sub

et j'ai testé le code suivant en vb pour afficher les boutons mais sans succès:

Sub b_validation_Click()

derligne = Range("H2").End(xlDown).Row

ActiveSheet.Buttons.Add(Range("H2").Left, Range("derligne").Top, 60, 15).Select
    
End Sub

En fait ce que je souhaiterais, c'est que quand je filtre mes recherche, un bouton s'affiche en colonne H à coté de chaque résultat.
est ce faisable?
merci pour votre aide,
jacko