Sub Verrouiller()
Dim Ligne As Integer
Dim iMax As Integer
iMax = 5049
For Ligne = 2 To iMax
If Cells(Ligne, 10) = 1 Or Cells(Ligne, 16) <> 0 Then
Range(Ligne & ":" & Ligne).Locked = True
ElseIf Cells(Ligne, 10) > 0 And Cells(Ligne, 10) < 1 And Cells(Ligne, 16) = 0 Then
Range(Cells(Ligne, 1), Cells(Ligne, 14)) = "XXXXX"
Range(Cells(Ligne, 22), Cells(Ligne, 33)).Locked = True
End If
Next Ligne
End Sub