XL 2019 Inserer une image dans le corps du message d'outlook

Sub SendEmail()
    Dim Destinataire_A$, Destinataire_CC$, Objet_mail As Object
    Dim Message$, messagerie As Object, NomPrenom$, Email As Object
    Dim fichier$, CheminPieceJointe$, adremail$, Chemin$, NomImage$

    Chemin ="D:\Mon image.jpg"
    NomImage = Mid(Chemin, InStrRev(Chemin, "\") + 1)


    Message = "<div style='font-family:Calibri Light;font-size:11pt;'>" _
            & "<p>Bonjour Mesdames et messieurs ,</p><br> " _
            & "<img src='" & NomImage & "'" & "width='1200' height='600'><br>" _
            & "<p><B>Départs & Retours:</B></p><br></div>"


    Set messagerie = CreateObject("Outlook.Application")
    Set Email = messagerie.createitem(0)     '0=Mail, 1=RDV, 2=Contact, 3=Tache, 6=Objet outlook"
    With Email
        .To = "monemail@gmail.com"
        .CC = Destinataire_CC
        .BCC = ""
        .Subject = "test"
        .HTMLBody =  Message 
        .Attachments.Add Chemin     'on envoie  l'image
        '.Attachments.Add Chemin     'on l'envoie une seconde fois si on la veux aussi en piece jointe
       
        'ajout eventuel d'une autre piece jointe
        '.Attachments.Add CheminPieceJointe ' Ajoutez la pièce jointe au mail

        .Display
        ' .Send

    End With
    Set Email = Nothing
    Set messagerie = Nothing
    Application.ScreenUpdating = True

End Sub