Problème dans l'addition des combobox

Bonjour, j'ai un problème avec mes combobox qui doivent s'aditionner en fonction de la sélection. Dans mon combobox 3, il marche mais j'ai le combobox 4 qui s'active ensuite alors qu'il devrait s'activer dans le combobox 4. Je ne sais pas comment vous l'expliquer donc j'ai glisser un exemple.
Merci de votre aide

Bonjour,

Erreur d'inattention.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub ComboBox3_Change() Dim MonDico Dim C As Range Set MonDico = CreateObject("Scripting.Dictionary") For Each C In Range(f.[A3], f.[A65000].End(xlUp)) If C = Me.ComboBox1 And C.Offset(, 2) = Me.ComboBox2 And C.Offset(, 3) = Me.ComboBox3 Then _ MonDico(C.Offset(, 4).Value) = C.Offset(, 4).Value Next C Me.ComboBox4.List = MonDico.items 'SUR CETTE LIGNE TU AVAIS ECRIS Me.ComboBox3.List Me.ComboBox4.ListIndex = -1 End Sub

---

Merci beaucoup, j'ai passé 3h à tout reprendre sans voir mon erreur.