Private Sub UserForm_Initialize()
' combobox1 sans doublons
Set f = Sheets("Feuil1")
Set MonDico = CreateObject("Scripting.Dictionary")
a = f.Range("C2:C" & f.[C65000].End(xlUp).Row)
For i = LBound(a) To UBound(a)
If a(i, 1) <> "" Then MonDico(a(i, 1)) = ""
Next i
Me.ComboBox1.List = MonDico.keys
' combobox2 sans doublons
Set MonDico = CreateObject("Scripting.Dictionary")
a = f.Range("D2:D" & f.[D65000].End(xlUp).Row)
For i = LBound(a) To UBound(a)
If a(i, 1) <> "" Then MonDico(a(i, 1)) = ""
Next i
Me.ComboBox2.List = MonDico.keys
End Sub