Macro appliquée à plusieurs cellules

Bonjour,

Je débute dans les Macro. Je dois mettre en place un fichier où selon la valeur d'une cellule, la saisie dans une autre cellule est verrouillée. Pour ce faire j'ai réalisé la macro suivante avec l'aide d'internet (cf. dessous). Maintenant je souhaite que la macro qui actuellement fonctionne sur la cellule H15 en fonction de la valeur de G15 fonctionne également pour la celle H16 en fonction de la valeur de G16, H17 en fonction de la valeur de G17 et ainsi de suite jusqu'à H68 en fonction de la valeur de G68.

Quelqu'un pourrait t'il m'aider à adapter ma macro SVP ?

D'avance, merci beaucoup !!!!!

Macro utilisée pour le verrouillage des cellules :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Range("G15")
Case Is <> "Non commencée"
With ActiveSheet
.Unprotect Password:="toto"
.Range("H15").Locked = True
.Protect Password:="toto"
Exit Sub
End With
Case Else
With ActiveSheet
.Unprotect Password:="toto"
.Range("H15").Locked = False
.Protect Password:="toto"
End With
End Select
End Sub