[VBA] probleme pièce jointe

Bonjour,
je souhaite envoyé un email écris en texte enrichi
J'aime placer ma pièce jointe dans un endroit précis du texte
et a l'envoie ma pièce jointe se place a la fin du texte
Voici le code que j'ai généré
SI quelqu'un voit l'erreur
je lui en serait très reconnaissant
Merci d'avance


Dim MonOutlook As Outlook.MailItem
Dim MesAttachements As Outlook.Attachments
Dim MaOutLookApplication As Object

Set MaOutLookApplication = CreateObject("Outlook.Application")
Set MonOutlookMessage = MaOutLookApplication.CreateItem(olMailItem)
Set MesAttachements = MonOutlookMessage.Attachments

MonOutlookMessage.to = adresse
MonOutlookMessage.cc = adressecc
MonOutlookMessage.bcc = ""
MonOutlookMessage.Subject = "Alertes E-transaction pour l'établissement" & " " & Banq & " " & "(" & " " & Count & " " & "alertes" & ")"


MonOutlookMessage.BodyFormat = olFormatRichText
MonOutlookMessage.Attachments.Add "D:\E-transaction\EnvoiCR.xls", , 1
MonOutlookMessage.body = b4 & vbCrLf & _
b5 & vbCrLf & _
b6 & vbCrLf & _
b7 & vbCrLf & _
b8 & vbCrLf & _
b9 & vbCrLf & _
b10 & vbCrLf & _
b11 & vbCrLf & _
b12 & vbCrLf & _
b13 & vbCrLf & _
b14 & vbCrLf & _
b15 & vbCrLf & _
b16 & vbCrLf & _
b17 & vbCrLf & _
b18 & vbCrLf & _
b19 & vbCrLf & _
b20 & vbCrLf & _
b21 & vbCrLf & _
b22 & vbCrLf
MonOutlookMessage.Attachments.Add "D:\E-transaction\EnvoiCR.xls", , 1



'affiche 1
Debug.Print MonOutlookMessage.Attachments(1).Position

MonOutlookMessage.Send

Set MonOutlookMessage = Nothing