Critere de selection VBA

Bonsoir y a t il moyen d'ajouter un critère dans cette macro, comme quoi dans la colonne 1 cela doit prendre comme critère "it0156" par exemple, y a t'il moyen ?

Private Sub Worksheet_Activate()

Sheets("flotte").Range("Tableau1[#All]").AdvancedFilter Action:= _

xlFilterCopy, CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4:J4"), _

Unique:=False

MsgBox Cells(Rows.Count, 1).End(xlUp).Row - 4 & " item(s)"

End Sub

bonne fin de w end

Bonjour,

Mets "it0156" en A2 !?

Cdlt.

Merci oui désolé suis je bête je débute

Rechercher des sujets similaires à "critere selection vba"