listes déroulantes en cascade

Bonjour,

J'ai le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$A$2' Then
[B2] = Range('Types' & [A2]).Item(1)
[C2] = Range('Couleurs' & [A2]).Item(1)
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = '$A$2' _
Or Target.Address = '$B$2' _
Or Target.Address = '$C$2' _
Then Application.SendKeys '%{down}'
End Sub

Mais j'aimerai que la macro s'applique à chaque ligne, est-ce possible ?

Merci d'avance de votre retour