Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("feuil1").Cells(1, 1) = 0 Then
temp = MsgBox("j'ai pris note...et j'en assume toutes les responsabilités", vbYesNo, "Message")
If temp = vbNo Then
Cancel = True
Else
Sheets("feuil1").Cells(1, 1).Value = 1
End If
End If
End Sub