Aide programmation VBA/ Saisie d'une note

Bonjour,

1)Je dois constituer une grille de notation, et les notes attribuées aux objets sont comprises entre 1 et 5. je souhaiterai que tant que la note rentrée ne soit pas comprise entre 1 et 5 on ne puisse pas passer à la cellule suivante.
2)Je dois répéter cette opération sur 10 cellules qui sont sur des lignes impaires.
Pour le 1 j'ai écrit un programme en Vba:

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$A$1"
If Target.Value < 1 Or Target.Value > 5 Then MsgBox "Erreur. La note doit être comprise entre 1 et 5"
Target.Select
End Select
End Sub

je ne sais pas comment constituer une boucle est ce que je peux écrire "$a$k"?

Merci pour votre Aide.