Utilisation d'un code Filtrer

[lmc71]

Bonjour le Forum
J'ai cherché et trouvé un code qui me permet de trier une plage de données selon le critère de la cellule A2. Dans le fichier trouvé le code fonctionne très bien. J'ai fait un copier coller de ce code et adapté (il me semble ) à mon fichier, mais ce code ne réagit pas comme il le devrait.
Quelqu'un pourrait il regarder ce fichier et me renseigner sur ce non fonctionnement.
Merci
Cordialement.

 

[mapomme]

Re : Utilisation d'un code Filtrer

Bonsoir lmc71,

Avec ce code peut-être ? :

Sub Filtrer()
Dim DerLig As Long
    Application.ScreenUpdating = False
    With Worksheets("Age")
        If .FilterMode Then .ShowAllData
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A6:F" & DerLig).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        .Range("A1:A2"), Unique:=False
    End With
End Sub

 

[lmc71]

Re : Utilisation d'un code Filtrer

Bonjour MaPomme
Bonjour le forum
Excusez du retard pour la réponse
Je te remercie pour ton code qui fonctionne très bien
Affaire résolue
Cordialement