Private Function Mail(Destinataire As String, Titre As String, Texte As String, Optional Document As String) As Boolean
On Error GoTo Erreur
Set ObjApp = New Outlook.Application
Set ObjMail = ObjApp.CreateItem(olMailItem)
Set ObjAttachement = ObjMail.Attachments
ObjMail.To = Destinataire
ObjMail.Subject = Fichier_Generateur.Sheets(1).Shapes("ZoneTexte 2").TextFrame.Characters.Text
ObjMail.Body = Fichier_Generateur.Sheets(1).Shapes("ZoneTexte 1").TextFrame.Characters.Text
If Document <> "" Then ObjAttachement.Add Document
ObjMail.Display
Mail = True
ObjMail.Send ' envoi du message
Exit Function
Erreur:
Mail = False
MsgBox Error
End Function