Dim f
Private Sub ComboBox1_DropButtonClick()
Set f = Sheets("BaseRéelle")
Set dico = CreateObject("Scripting.Dictionary")
Dim a()
n = 1
For Each c In f.Range("A3:A" & f.[A65000].End(xlUp).Row)
If Not dico.exists(c.Value) Then
ReDim Preserve a(1 To 2, 1 To n)
a(1, n) = c.Value
a(2, n) = c.Offset(0, 1).Value
dico(c.Value) = ""
n = n + 1
End If
Next c
Me.ComboBox1.List = Application.Transpose(a)
End Sub
Private Sub ComboBox1_Click()
Me.ComboBox2.Clear
i = 0
For Each c In f.Range("A3:A" & f.[A65000].End(xlUp).Row)
If c.Value = Me.ComboBox1 Then
Me.ComboBox2.AddItem c.Offset(, 2).Value
Me.ComboBox2.List(i, 1) = c.Offset(, 3).Value
i = i + 1
End If
Next c
End Sub