Dim t(), t1(), i As Long, x As Long, y As Byte, m As Object
Private Sub UserForm_Initialize()
Set m = CreateObject("Scripting.Dictionary")
t = Feuil1.Range("a2:B" & Feuil1.Cells(Rows.Count, 1).End(3).Row)
ReDim t1(1 To UBound(t), 1 To 2)
For i = 1 To UBound(t)
If Not m.Exists(t(i, 1)) And t(i, 1) <> "" Then
m.Add t(i, 1), t(i, 2)
x = x + 1
For y = 1 To 2: t1(x, y) = t(i, y): Next y
End If
Next i
ComboBox1.List = t1
End Sub
Private Sub ComboBox1_Change()
TextBox1 = ComboBox1.List(ComboBox1.ListIndex, 1)
End Sub