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