Remplir Combobox excel VBA

Bonjour,

Je cherche à remplir un combobox en fonction des valeurs sélectionnées dans un premier combobox rempli précédemment dans mon userform.

Mon code placé dans userform1 (code) est le suivant :

Private Sub ComboBox2_Change()

If ComboBox2.Value = c1 Then
ThisWorkbook.Sheets("Feuil2").Select
ComboBox3.RowSource = d1: d5
End If

If ComboBox2.Value = c2 Then
ThisWorkbook.Sheets("Feuil2").Select
ComboBox3.RowSource = d6: d9
End If

If ComboBox2.Value = c2 Then
ThisWorkbook.Sheets("Feuil2").Select
ComboBox3.RowSource = d10: d15
End If
End Sub


Le message d'erreur qui s'affiche est "erreur de compilation sub ou fonction non définie".
Je suis complètement coincé et j'ai besoin d'aide car je ne trouve rien correspondant à mon problème sur les forums.

Merci d'avance