Salut le forum
Kikim, ton critère de filtre ne contient pas d'entête de ligne.
En D1 ACNATOP101
En D2 *09 C4
En D3 C5
Le code de la macro
Sub Filtre()
Range("A4:AJ1000").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("D1:D3"), Unique:=False
End Sub
Mytå