Dim f
Private Sub UserForm_Initialize()
Set f = Sheets("feuil1")
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range(f.[A2], f.[A65000].End(xlUp))
mondico(c.Value) = ""
Next c
Me.ComboBox1.List = mondico.keys
End Sub
Private Sub ComboBox1_Change()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range(f.[A2], f.[A65000].End(xlUp))
If c = Val(Me.ComboBox1) Then mondico(c.Offset(, 1).Value) = ""
Next c
Me.ComboBox2.List = mondico.keys
Me.ComboBox2.ListIndex = -1
Me.ComboBox3.ListIndex = -1
End Sub
Private Sub ComboBox2_Change()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range(f.[A2], f.[A65000].End(xlUp))
If c = Val(Me.ComboBox1) And c.Offset(, 1) = Me.ComboBox2 Then mondico(c.Offset(, 2).Value) = ""
Next c
Me.ComboBox3.List = mondico.keys
Me.ComboBox3.ListIndex = -1
End Sub