Autofilter critère (Texte) contenu dans une cellule

Bonjour,

Je souhaite filtrer une plage A33:Z100, sur la colonne 9 avec un critère contenu dans une cellule A1.

J'arrive à le faire manuellement en mettant un nom mais n'arrive pas à faire un lien avec la cellule A1.

Sheets("PA").Range("A33:Z11").AutoFilter Field:=9, Criteria1:="Olivier"

Je vous remercie par avance.

:-)

Criteria1:=Range("Mail!A1")