Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sub mail()
Dim ol As Object, monmail As Object
DisplayAlerts = False
Set ol = CreateObject("outlook.application")
Set monmail = ol.CreateItem(olMailItem)
monmail.To = "mon mail "
monmail.To = "autre mail "
monmail.Subject = "Modifs"
monmail.Body = "Modifications apportées au planning de fabrication"
monmail.Send
Set ol = Nothing
End Sub