Function SansDoublons(champ As Range)
Set mondico = CreateObject("Scripting.Dictionary")
mondico.CompareMode = vbTextCompare
temp = champ
For Each c In temp
If c <> "" Then mondico(c) = ""
Next c
Dim b()
ReDim b(1 To Application.Caller.Rows.Count, 1 To Application.Caller.Columns.Count)
i = 1
j = 1
For Each c In mondico.keys
b(i, j) = c
i = i + 1
If i > Application.Caller.Rows.Count Then i = 1: j = j + 1
Next
SansDoublons = b
End Function