Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' Controle si la cellule délai de réalisation est remplie
If Range("Feuil1!B4").Value or ("Feuil1!D4").Value = "" Then
MsgBox "Remplir le(s) champ(s) de Durée de réalisation!"
Cancel = True
End If
End Sub