Private Sub Deverrouiller_Click()
Protect Password:="TEST", UserInterfaceOnly:=True
Range("F14:F42,P14:P42").Locked = False
End Sub
Private Sub Proteger_Click()
Protect Password:="TEST", UserInterfaceOnly:=True
Range("F14:F42,P14:P42").Locked = True
End Sub