Commande VB

Bonjour,

J'ai fais cette commande sur excel il y a quelques mois:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

End Sub

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 = "***@***;obr@ylb,ch;***@***;***@***"
monmail.Subject = "Modif suivi des chantiers REL"
monmail.Body = "Des modifications ont été faites dans le fichier du suivi des chantiers REL file://"
monmail.Send
Set ol = Nothing
End Sub

Mon problème: elle ne fonctionne plus et je n'arrive pas a comprendre pk ...

Qui peut m'aider ??