Sub Macro1()
Dim sd
Dim a
Set sd = CreateObject("Scripting.dictionary")
For Each cel In Sheets("Données").Range("B2:B" & Sheets("Données").Range("B65536").End(xlUp).Row)
If Not sd.exists(cel.Offset(0, 1).Value) Then sd.Add cel.Offset(0, 1).Value, cel.Value
Next cel
a = sd.items
UserForm1.CB_nomcli.List = a
End Sub