Sub SansDoublonsTrié1()
Dim temp()
Set f = Sheets("Feuil1")
Set MonDico = CreateObject("Scripting.Dictionary")
a = Range("F2:G" & Range("F65535").End(xlUp).Row).Value
For Each C In a
MonDico(Application.Proper(C)) = ""
Next C
Set dest = f.Range("AX2")
dest.Resize(MonDico.Count, 1) = Application.Transpose(MonDico.keys)
dest.Resize(MonDico.Count, 1).Sort Key1:=dest, Order1:=xlAscending
Set MonDico = Nothing ' libère mondico
End Sub