Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Sheets("Feuil1")
If .TextBox4.Value = "" Then
MsgBox "Action de progrès OBLIGATOIRE pour l'enregistrement", vbCritical, "ATTENTION ..."
Cancel = True
Exit Sub
End If
If .CheckBox31.Value = False And .CheckBox32.Value = False Then
MsgBox "Vous devez sélectionner une des réponses des impacts (OBLIGATOIRE) pour l'enregistrement", vbCritical, "ATTENTION ..."
Cancel = True
Exit Sub
End If
End With
Cancel = False
End Sub