Private Sub UserForm_Initialize()
Set mondico = CreateObject("Scripting.Dictionary")
Set f = Sheets("BD")
For Each c In Range(f.[A2], f.[A65000].End(xlUp))
mondico.Item(c.Value) = c.Value
Next c
Me.ComboBox1.List = mondico.items
End Sub
Private Sub ComboBox1_Change()
i = 0
Me.ListBox1.Clear
Set f = Sheets("BD")
For Each c In Range(f.[b2], f.[b65000].End(xlUp))
If c.Offset(0, -1) = Me.ComboBox1 Then
Me.ListBox1.AddItem
Me.ListBox1.List(i, 0) = c.Value
Me.ListBox1.List(i, 1) = c.Offset(0, 1).Value
i = i + 1
End If
Next c
End Sub