Filtre VBA

Bonjour

j'ai une question toute simple, mais qui me tourne la tête depuis quelle que jours voila :

J'ai ce code :

 ActiveSheet.Range("$A$1:$CB$11").AutoFilter Field:=19, Criteria1:=Array("." _
        , "1", "3", "4", "5", "6", "7", "8", "9"), Operator:=xlFilterValues

et a la place de "1", "3", "4", "5", "6", "7", "8", "9" je voudrais noter le nom de la cellule ou se trouve 1, 3, Etc

en fait stoker 1, 3, 5, etc dans des cellules ( par exemple A1 pour 1, A2 pour 2..) ce qui me permet de modifier les valeurs sans entrer dans le code

Je vous remercie

Cordialement

Haras

Bonjour,

Je n'ai pas fait le test, mais as-tu simplement essayé de remplacer :

ActiveSheet.Range("$A$1:$CB$11").AutoFilter Field:=19, Criteria1:=Array("." _
        , "1", "3", "4", "5", "6", "7", "8", "9"), Operator:=xlFilterValues

par

ActiveSheet.Range("$A$1:$CB$11").AutoFilter Field:=19, Criteria1:=Array("." _
        , Range("A1"), Range("A2"), Range("A3"), Range("A4"), Range("A5"), Range("A6") _
        , Range("A7"), Range("A8")), Operator:=xlFilterValues

(voir par un Worksheets("Nom de ta feuille").Range("A1") suivant d'où tu appelles ta procédure)

Cordialement,

je vais essayer

Merci