Sub ListeSansDoublons()
Set d = CreateObject("Scripting.Dictionary")
For Each c In Range("a1:a" & [a65000].End(xlUp).Row)
d(c.Value) = d(c.Value) & c.Offset(, 1).Value & " "
Next c
[d2].Resize(d.Count, 1) = Application.Transpose(d.keys)
[e2].Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub