Sub Filtrer_1er_dernier()
With [A1].CurrentRegion
.Sort .Columns(2), xlAscending, Header:=True 'tri si nécessaire
[F2] = "=OR(ROW(C2)=MATCH(C2,C:C,0),ROW(C2)=MATCH(C2+0.999999,C:C))" 'critère
.AdvancedFilter xlFilterInPlace, [F1:F2] 'filtre avancé
[F2] = ""
End With
End Sub
Sub Afficher_tout()
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
End Sub