Sub ListeSansDoublons()
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In Range("D1
7, F1:F7, H1:H7") ' à adapter !!!
If Not MonDico.Exists(c.Value) Then
MonDico(c.Value) = c.Offset(, 1).Value
Else
MonDico(c.Value) = MonDico(c.Value) ' & "," & c.Offset(, 1).Value
End If
Next c
[D14].Resize(MonDico.Count, 1) = Application.Transpose(MonDico.Keys)
End Sub