Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("F1:F10"), Target) Is Nothing Then ' interrupteur en colonne F
If Target.Value = 1 Then 'si la cellule F1 est egale a 1 alors a1:e1 verrouiller , si autre valeur deverrouiller.
Range("A" & Target.Row & ":E" & Target.Row).Locked = True
Else
Range("A" & Target.Row & ":E" & Target.Row).Locked = False
End If
End If
End Sub