Bonjour,
sous XL 2007:
menu données/supprimer les doublons
ou bien:
Sub ListeSansDoublons()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range("a1", [a65000].End(xlUp))
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
[D1].Resize(mondico.Count, 1) = Application.Transpose(mondico.keys)
[E1].Resize(mondico.Count, 1) = Application.Transpose(mondico.items)
End Sub