Bonjour
peux être comme ca avoir
Sub CacheDoublon()
Nlig = Range("A" & Rows.Count).End(xlUp).Row
Columns("A:A").AutoFilter
Selection.AutoFilter
Range("A1:A" & Nlig).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
Application.Goto [A1], True
End Sub
Sub Decache()
Columns("A:A").Select
ActiveSheet.ShowAllData
Application.Goto [A1], True
End Sub
A+
Maurice