XL 2010 combobox dépendante les unes aux autres

Bonjour à tous

j'essaye de réaliser une liste deroulante dépendante l'une de l'autre mais mon code ne fonctionne pas excel m'indique erreur 438

private Sub UserForm_Initialize()

Colonne = 2
Sheets("produits").Range("B2:H2").Interior.ColorInder = Clear

Do While Cells(2, Colonne).Value <> ""

formulaire.ComboBox1.AddItem Cells(2, Colonne).Value

Colonne = Colonne + 1

Loop


et

Private Sub ComboBox1_Change()


i = 2

formulaire.ComboBox2.Clear

Sheets("produits").Range("B2:H2").Interior.ColorIndex = Clear

Do While Cells(2, i).Value <> ""

If Cells(2, i).Value = ComboBox1.Value Then

Cells(2, i).Select
Colonne = ActiveCell.Column

End If

i = i + 1
Loop

j = 3
Do While Cells(j, Colonne).Value <> ""
formulaire.ComboBox2.AddItem Cells(j, Colonne)
j = j + 1

Loop

ComboBox2.ListIndex = 0


quelqu'un aurait il une autre solution pour moi svp ?