j'ai eu ce code par Boisgontierjacques
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Then
Sheets("base de donnes").Range("A3:X10000").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=[A2:A3], CopyToRange:=[A8:X8]
End If
End Sub
ça marche tres bien mais le souci même si la cellule A3 et vide après la cherche tous les nom reste toujours afficher ?
je veut quand j'efface les lettres saisi dans la cellule A3 tous redeviens comme avant vide
amicalement