Sub SansDoublonsTrie()
Dim temp()
Set f1 = Sheets("1")
Set f2 = Sheets("2")
Set mondico = CreateObject("Scripting.Dictionary")
a = Range(f1.[N2], f1.[N65000].End(xlUp)).Value
For Each c In a
mondico(c) = ""
Next c
derlig = f2.Cells(Rows.Count, 1).End(xlUp).Row 'n° ligne dernière cellule non-vide en colonne A
Set dest = f2.Range("A2")
dest.ClearContents
f2.[A3].Resize(derlig - 2, 4).ClearContents '4, pcq 4 colonnes à effacer (sans effacer les formules en ligne 2)
dest.Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
dest.Resize(mondico.Count, 1).Sort Key1:=dest, Order1:=xlAscending
[C2:D2].AutoFill ([C2].Resize(mondico.Count, 2)) 'recopier les formules de ligne 2 (sur 2 colonnes de large)
Set mondico = Nothing ' libère mondico
End Sub