Bonjour
A essayer, mais je n'ai pas le 22/12/2012 contrairement à ton exemple
Sans boucle
Sub Filtre()
Range("A1:B" & Range("A" & Rows.Count).End(xlUp).Row).AdvancedFilter _
Action:=xlFilterCopy, Unique:=True, CopyToRange:=Range("J1:K1")
Range("J1:K" & Range("J" & Rows.Count).End(xlUp).Row).Sort Key1:=Range("J2"), _
Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End Sub