Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Controle si la cellule est remplie
If Range("Feuil1!B4") = "" And Range("Feuil1!D4") = "" Then
MsgBox "Remplir obligatoirement la cellule B4 ou D4, merci"
Cancel = True
End If
End Sub