Private Sub CommandButton1_Click()
Dim F As Worksheet, x$
Set F = Feuil2 'CodeName à adapter
x = InputBox("Texte à rechercher :", "Rechercher")
If x = "" Then Exit Sub
F.Cells.Clear 'RAZ
[F2] = "=COUNTIF(A2:B2,""*" & x & "*"")" 'critère
[A1].CurrentRegion.AdvancedFilter xlFilterCopy, [F1:F2], F.[A1] 'filtre avancé'
[F2] = ""
F.Columns("A:B").AutoFit 'ajustement largeurs
F.Activate
End Sub