Probleme de critere avec AdvancedFilter

[Flam's]

Bonjour voila mon prob

J'ai un tableau de categorie(1ere colone) et sous_categorie(2nd colone) en A1:B18, et je veux extraire lignes de ce tableau dont la cellule de la 1ere colone est égal à la valeur de la cellule C27. Les lignes extraites sont renvoyé a partir de la cellule C29. Je veux donc toutes les lignes (categorie et sous-categorie) du tableau dont la categorie est la meme quand C27

Voila mon code:

Worksheets("Stocks").Range("A1:B18").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("C27"), _
CopyToRange:=Range("C29")

Mais apparament la procedure ne prend pas en compte le critere, elle m'affiche à partir de C29 toute ma liste A1:B18

Comment faire?