Listes deroulantes

Bonjour, je debute dans les macros, et je rencontre un probleme de programmation.
La premiere liste deroulante fonctionne bien, mais la seconde reste vide.Un probleme de declaration de variable je pense.
Le principe:
Si dans la premiere liste deroulante, la valeur 600 (A1:A100) est choisie , je voudrais que les valeurs de la deuxieme liste deroulante soient restreintes --> B1:B5
Mais si dans la premiere liste deroulante, la valeur 800 (A1:A100) est choisie , je voudrais que les valeurs de la deuxieme liste deroulante soient restreintes -->B6:B10

Merci d'avance

Seb


Private Sub UserForm_Activate()
Dim DerniereMarque As String
DerniereMarque = Range("A1").End(xlDown).Address
' Plage de données pour afficher dans liste déroulante
Marque.RowSource = "A1:" & DerniereMarque
' Afficher la première marque de la liste (0)
Marque.ListIndex = 0
End Sub

Private Sub Valider_Click()
ListeDeroulante.Hide
Index = Marque.ListIndex
Choixmarque = Marque.List(Index)
' Stockage du résultat dans la cellule D2
Range("F2").Value = Choixmarque
End Sub

Private Sub Annuler_Click()
ListeDeroulante.Hide
End Sub


Private Sub UserForm_Activate()
If Choixmarque = 600 Then
marque2.RowSource = "B1:B5"
End If

End Sub

Private Sub Valider_Click()
ListeDeroulante2.Hide
Index = marque2.ListIndex
Choixmarque = marque2.List(Index)
' Stockage du résultat dans la cellule D2
Range("G2").Value = Choixmarque
End Sub

Private Sub Annuler_Click()
ListeDeroulante2.Hide
End Sub