Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig&
ActiveSheet.Unprotect "XLD"
For Lig = 8 To 55
Range("J" & Lig).Locked = IIf(Cells(Lig, "B") + Cells(Lig, "C") < Now, True, False)
Range("M" & Lig).Locked = IIf(Cells(Lig, "B") + Cells(Lig, "C") < Now, True, False)
Next Lig
ActiveSheet.Protect "XLD"
End Sub