Bonjour et bien venu,
bon, voici un code qui faut ensuite personnalisé :
Private Sub ComboBox1_Change()
Me.ComboBox2.Clear
If ComboBox1 = "Commune 1" Then
ComboBox2.List() = Array("", "C1", "C2", "C3")
ElseIf ComboBox1 = "Commune 2" Then
ComboBox2.List() = Array("", "C4")
ElseIf ComboBox1 = "Commune 3" Then
ComboBox2.List() = Array("", "C5", "C6")
ElseIf ComboBox1 = "Commune 4" Then
ComboBox2.List() = Array("", "C7", "C8", "C9")
End If
mais je pense pas, après l'avoir fait, que c'est ce que tu veux, je pense que tu veux quelques choses de plus dynamique à partir de liste sur une feuille... je te mets tout de même le fichier avec le code.
cordialement,
Francky