Macro avec advancedfilter action

Bonjour,

Je viens vers vous car je n'arrive pas à faire fonctionner ma macro.

ma macro consiste à lancer un filtre élaboré et de copier le résultat sur une feuille "d"

voici mon code

sub test()
Sheets("d").Select

Range("BASE").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("criteres_n"), CopyToRange:=Range("sortie"), Unique:=False

end sub

base = plage de cellule dans la feuille"A"
criteres_n=plage de cellule dans la feuille"b"
sortie = plage de cellule dans la feuille"c"

la macro s'execute, mais mon tableau reste vide
aucun message d'erreur
(j'ai remarqué que lors de l'execution de ma macro si des données sont présentes dans mon tableau en feuille"d", celle ci sont effacées.)

Merci de m'accorder un peu de votre temps
d'avance merci