Bonjour,
Mon code ne fonctionne pas : "methode de la classe select Range a échoué".
Sheets("liste_unique").Select
Range("a1:h1").Select
Range("Critere").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
"a1:h1"), Unique:=True
En macro de type sub le code fonctionne