Bonjour Hieu, le forum,
Il faut faire du vba avec Outlook, et non avec excel pour gérer l'envoi de cet email: le paramètre SentOnBehalfOfName va pouvoir gérer l'adresse mail d'envoi.
A +
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Set ObjOutlook = New Outlook.Application
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
With oBjMail
.SentOnBehalfOfName = "Ici votre adresse email d'envoi"
.To = CustomerEmail ' le destinataire
.Subject = "L'objet du mail "
.BodyFormat = olFormatHTML
.HTMLBody = Mailbody 'le corps du mail
.Attachments.Add NomFichier ' Nomfichier
.Display ' Pour afficher avant d'envoyer
'.Send ' Pour envoyer sans afficher
End With