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