Macro filtre Excel impossible à intégrer

Bonjour à tous,

Je vous explique mon problème. J'ai récupéré une macro d'un fichier que j'avais créé il y a 2 ans. Cependant en changeant les valeurs de cette macro, elle ne fonctionne pas. Je pense que c'est parce que je ne précise pas le nom de la feuille dedans, mais je n'y arrive pas.

Voici la macro:

Sub Filtrer1()
'
' Filtrer Macro

Range("W1:AA1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
  ("AJ1:AJ2"), CopyToRange:=Range("AL1:AP1000"), Unique:=False
 

End Sub

Je souhaite créer un filtre avec une zone de critère, cette macro fonctionnait parfaitement sur mon ancien fichier.

W1:AA1000 est ma plage avec mes données, AJ1:AJ2 est ma zone de critère, AL1:AP1000 est la zone ou je voudrais qu'apparaissent mes données filtrées.

Toutes ces cellules se trouvent sur la Feuil6.

chaque fois que j'exécute ma macro j'ai ce message "Erreur d'execution 1004
Nom de champs incorrect ou manquant dans la zone d'extraction"
Merci de votre aide

Je vous joins mon fichier ci dessous:
https://wetransfer.com/downloads/9550d7d0ad406a118470d007f7c2f3e720210318082303/343b8f1d23b0eef35c99cffe39a71c9020210318082326/762bc8