Liste cascade pays
Private Sub UserForm_Initialize()
Set mondico = CreateObject("Scripting.Dictionary")
For Each c In Range([C2], [C65000].End(xlUp))
If Not mondico.Exists(c.Value) Then mondico.Add c.Value, c.Value
Next c
Me.ComboBox1.AddItem "*"
For Each i In mondico.items
Me.ComboBox1.AddItem i
Next
End Sub
Private Sub Dépt_Change()
i = 0
Me.Villes.Clear
For Each c In Range([B2], [B65000].End(xlUp))
Me.Villes.AddItem
Me.Villes.List(i, 0) = c.Value
Me.Villes.List(i, 1) = c.Offset(0, 2).Value
me.cp.value = c.offset(0,3)
i = i + 1
End If
Next c
End Sub