Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = Application.CountA(Sheets("LaFeuilleEnQuestion").Range("A10:D10")) < 4
If Cancel Then
MsgBox "Ben, dites donc! Vous n'auriez pas oublié quelque chose?", vbExclamation, "Enregistrement"
End If
End Sub