Aide code recherche

bonjour

j'ai ce code la j'aimerai qu'il recherche dans la colonne A de A1 a A500 et nom dans le tableau svp

merci

If TextBox1.Text = "" Then
        ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1
    Else
        ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=1, Criteria1:="=*" & TextBox1.Text & "*", Operator:=xlAnd
    End If

bonne journée

Bonjour jonat28, le forum,

A tester:

Dim Plage As Range
 Set Plage = Sheets("Feuil1").Range("A1:A500")

  With Plage
    If TextBox1.Text = "" Then
        .AutoFilter Field:=1
    Else
        .AutoFilter Field:=1, Criteria1:="=*" & TextBox1.Text & "*", Operator:=xlAnd
    End If
  End With

Cordialement,

Bonjour xorsankukai

Oh super ça fonctionne parfaitement !! un très grand merci

bonne journée