Private Sub userform_initialize()
Dim t(), j As Long, m As Object, d As Object
Set m = CreateObject("Scripting.Dictionary")
Set d = CreateObject("Scripting.Dictionary")
t = Feuil2.Range("b6:d" & Feuil2.Cells(Rows.Count, 2).End(3).Row)
For j = 1 To UBound(t)
m(t(j, 1)) = "": d(t(j, 3)) = ""
Next j
ComboBox1.List = m.keys
ComboBox2.List = d.keys
End Sub