Private Sub CommandButton1_Click()
Dim texte As String
texte = InputBox("Entrer le texte recherché :", "Rechercher")
If texte <> "" Then
AutoFilterMode = False
Range("A:A").AutoFilter Field:=1, Criteria1:="=*" & texte & "*", Operator:=xlAnd
End If
End Sub