Private Sub Worksheet_Change(ByVal Target As Range)
If MsgBox("Confirmez-vous ce que vous venez d'entrer ?", 4) = vbNo Then
Application.EnableEvents = False
Target = ""
Application.EnableEvents = True
End If
Protect "toto", UserInterfaceOnly:=True
Cells.Locked = False
On Error Resume Next
Cells.SpecialCells(xlCellTypeConstants).Locked = True
Cells.SpecialCells(xlCellTypeFormulas).Locked = True
End Sub