Filtre ok, mis le résultat ne saffiche pas

Bonjour

j'utilise le filtre :

ActiveSheet.Range("$A$1:$I$2690").AutoFilter Field:=3, Criteria1:=Orga_commAP

le filtre est bien mémorisé dans la feuille, mais je n'arrive pas à afficher le résultat

pouvez vous m'aider ?

Merci d'avance

Bonjour et bienvenue sur le forum

essaie avec des guillemets :

  ActiveSheet.Range("$A$1:$I$2690").AutoFilter Field:=3, Criteria1:="Orga_commAP"

Merci d'avoir passé du temps sur ma question,

mais les guillemets transforment ma variable en texte.

afin de faire simple j'avais placé un critère simple dans l'exemple, mais mon problème est sur un critère où je dois utiliser l'équivalent dans Excel du menu : filtrer/Filtres textuels/contient

ActiveWindow.SmallScroll Down:=-192

ActiveSheet.Range("$A$1:$I$2690").AutoFilter Field:=5, Criteria1:= _

"=*" & Fam_Mark & "*", Operator:=xlAnd

et là je n'arrive pas à afficher le résultat

Merci d'avance