Const CIBLE As String = "A7"
Private Sub TextBox1_Change()
Range(CIBLE).AutoFilter field:=1, Criteria1:="=*" & TextBox1.Text & "*", Operator:=xlAnd, VisibleDropDown:=False
End Sub
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = ""
Selection.AutoFilter field:=1
End Sub
Private Sub TextBox2_Change()
Range(CIBLE).AutoFilter field:=2, Criteria1:="=*" & TextBox2.Text & "*", Operator:=xlAnd, VisibleDropDown:=False
End Sub
Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Text = ""
Selection.AutoFilter field:=2
End Sub