Filtre automatique

Bonjour à tous,

dans un fichier j'ai créé le code suivant :

Private Sub Worksheet_Activate()

Sheets("Procédure").Cells(Rows.Count, 1).End(xlUp).CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _

CriteriaRange:=Range("A1").CurrentRegion, CopyToRange:=Range("A4").CurrentRegion.Resize(1), Unique:=False

End Sub

Ce code me permet de récupérer en automatique des données issues de la feuille Procédure.

J'ai voulais mettre une filtre automatique de la cellule A5 à AM5 dans la feuille Procédure.

Mon problème est que dès que je vais sur la feuille qui me récupère les données issues de la feuille Procédure alors ce filtre disparait.

Pouvez-vous m'aider à ce que j'ai en permanence ce filtre sur la feuille Procédure ?

Merci d'avance,

Cordialement,

Jéjé

Désolé,

j'ai trouvé entre temps :

il faut ajouter : Sheets("Procédure").Range("A5:AM5").AutoFilter

Bonne soirée à tous.