Dim MonOutlook, MonMessage As Object
Dim Corps As String
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.createitem(0)
MonMessage.to = ad 'ad est soit déterminé dans la macro ou à saisir dans le champ adresse manuellement
MonMessage.Subject = Mid(ActiveWorkbook.Name, 1, 17)
Corps = "Bonjour," & Chr(13) & Chr(10)
Corps = Corps & "La demande " & ActiveWorkbook.Name & " a été traitée."
MonMessage.body = Corps
MonMessage.Send
Set Raccourci = Nothing
Set MonOutlook = Nothing