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