Private Sub UserForm_Initialize()
'Combobox en cascade
Set f = Sheets("Liste")
Set mondico = CreateObject("Scripting.Dictionary")
For Each C In Range(f.[A2], f.[A300].End(xlUp))
mondico(C.Value) = C.Value
Next C
Me.ComboBox3.List = mondico.items
End Sub
Private Sub ComboBox3_Change()
Set mondico = CreateObject("Scripting.Dictionary")
For Each C In Range(f.[A2], f.[A300].End(xlUp))
If C = Me.ComboBox3 Then mondico(C.Offset(, 1).Value) = C.Offset(, 1).Value
Next C
Me.ComboBox4.List = mondico.items
Me.ComboBox4.ListIndex = -1
Me.ComboBox5.ListIndex = -1
End Sub
Private Sub ComboBox4_Change()
Set mondico = CreateObject("Scripting.Dictionary")
For Each C In Range(f.[A2], f.[A300].End(xlUp))
If C = Me.ComboBox3 And C.Offset(, 1) = Me.ComboBox4 Then mondico(C.Offset(, 2).Value) = C.Offset(, 2).Value
Next C
Me.ComboBox5.List = mondico.items
Me.ComboBox5.ListIndex = -1
End Sub