Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:Q")) Is Nothing Then
ActiveSheet.Unprotect
ligne = Target.Row
If Cells(ligne, 17).Value = "OK" Then
Cells(ligne, 8) <--- celle-ci à transformer en valeur
Range(Cells(ligne, 1), Cells(ligne, 15)).Locked = True
Cells(ligne, 16).Locked = False
....