sub Envoi_Outlook()
Dim objOL As Object, ObjMail As Object
Dim oAttach As Object, ColAttach As Object
Set objOL = CreateObject("Outlook.Application")
Set ObjMail = objOL.CreateItem(0)
Set ColAttach = ObjMail.attachments
Set oAttach = ColAttach.Add("<chemin complet de l'image>") 'Changer le chemin et le nom de l'image
With ObjMail
.to = Cells(1, 1) 'destinataire
.CC = Cells(2, 1) 'copie à
.Subject = Cells(3, 1) 'sujet'
.HTMLBody = "<BODY><FONT face=Arial color=#000080 size=2></FONT>" & _
"Bonjour, <br><br><IMG src=cid:Mon_Image></BODY>" 'Nom de l'image sans chemin
.Save
.Display 'Send Display permet d'afficher le message, Send l'envoie sans affichage
End With
Set oAttach = Nothing
Set ColAttach = Nothing
Set ObjMail = Nothing
Set objOL = Nothing
End Sub