Private Sub Worksheet_Change(ByVal Target As Range)
lig = Target.Row
tx = Cells(lig, 1) & " " & Cells(lig, 2) & " " & Cells(lig, 3) 'ici colonne 1 à 3
If MsgBox("Valider pour ....." & tx, vbYesNo + vbExclamation, "CONFIRMATION") = vbNo Then
Application.EnableEvents = False 'évite événement Change
Target = "" 'on efface
Application.EnableEvents = True 'remet événement
Else
ActiveSheet.Unprotect "toto"
Target.Locked = True
ActiveSheet.Protect "toto"
End If
End Sub