Bonjour Amateur004
Quand vous mettez des fichiers à dispo, merci d'éviter ce genre de chose SVP
Sub Workbook_open()
Application.Visible = False
...
Pour moi votre code n'a jamais pu marcher
Sauf erreur, un filtrage avancé ne peut être copié que sur la feuille active et non vers une autre feuille
Voici votre fichier modifié