2 combobox

Bonjour,

j'essaye d'avoir deux combobox mais un ne marche pas

Voici un fichier

mettez d'abord le domaine

puis tentez de mettre l'operation et on voit que ca marche pas

l'objectif:

que en fonction de ce que je prend en domaine cela filtre pour le second combo

Auriez vous une idée

le code utilisé ne marche pas:

Private Sub domaine_AfterUpdate()
' Effacer le choix de la ville
Me.op.ListIndex = -1
' Effacer la combobox avant d'ajouter des données
' Me.op.Clear
' Avec la feuille source

' Mémoriser le code postal sélectionné
sCP = Me.domaine
' Trouver la dernière ligne du tableau des villes
DLig = Sheets("liste").Range("D" & Rows.Count).End(xlUp).Row
' Pour chaque ligne
For Lig = 2 To DLig
' Vérifier si le code postal correspond à celui sélectionné
If Sheets("liste").Range("C" & Lig) = sCP Then
Me.op.AddItem Sheets("liste").Cells(Lig, 3)
End If
Next Lig

End Sub

un grans merci par avance