Private Sub Worksheet_Change(ByVal Target As Range)
If test = True Then Exit Sub
If Selection.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
If Application.Intersect(Target, Range("A1:A12")) Is Nothing Then Exit Sub
test = True
If MsgBox("une fois validé, impossible a modifier ?", vbYesNo, "Attention !") = vbYes Then
ActiveSheet.Unprotect
Target.Locked = True
Else
Target.Select
Target.ClearContents
End If
test = False
If Target.Column = 1 Then
ActiveSheet.Unprotect
Target.Offset(0, 2) = Time
ActiveSheet.Protect
End If
End Sub