Créer une boucle ?

[Bunbun]

Bonjour à tous,

Je souhaiterai simplifier une macr en créant une boucle
Le "If then else" se repète de la ligne 13 jusque 36.
Il y a-t-il moyen de faire "For i=13 to 36 .... ???

Par avance merci

ci dessous extrait de la macro

Private Sub
ActiveSheet.Unprotect

If Range("BE13") < Range("AC13") Then
Range("M15").Locked = True
' ActiveSheet.Unprotect
Else
Range("M15").Locked = False
'ActiveSheet.Protect
End If

ActiveSheet.Unprotect
If Range("BE15") < Range("AC15") Then
Range("M17").Locked = True
' ActiveSheet.Unprotect
Else
Range("M17").Locked = False
'ActiveSheet.Protect
End If

etc....

ActiveSheet.Protect
End Sub