Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ol As Object, monmail As Object
DisplayAlerts = False
Set ol = CreateObject("outlook.application")
Set monmail = ol.CreateItem(olMailItem)
monmail.To = "xxx@monmail.com"
monmail.Subject = "Tableau de demande d'amélioration"
monmail.Body = "Une modification a été apporté sur le tableau de demandes d'amélioration." & Chr(10) & "Veuillez en prendre connaissance."
monmail.Send
Set ol = Nothing
End Sub