Mise en forme mail VBA

Bonjour à tous !

Aujourd'hui je crée ce post car je rencontre un soucis.
J'ai fais un mail automatique avec ce code pour directement copier un tableau et l'envoyer par mail.

Hors j'ai un soucis en excécutant ce code, la phrase dans .Body se met à la fin du tableau. Et je n'arrive pas à trouver comment la mettre sur le haut avant le tableau ?

Comment pourrais je faire ?
Bien amicalement à tous !

Sub envoi_mail()

    Dim OL As Object, myItem As Object, wDoc As Object, rng As Object
    Dim nb_lignes As Integer

    Set OL = CreateObject("Outlook.Application")
    Set myItem = OL.CreateItem(olMailItem)

    Sheets("Recap contrat").Activate

    ' On prépare le mail en rentrant les paramètres : adresse des destinataires, en copie, objet du mail, corps du mail
    With myItem
        .To = "test@gmail.com"
        .CC = ""
        .Subject = "Contrats et Objectifs du " & Format(Now() + 1, "dd/mm/yyyy") & "."""
        .Body = "Bonjour, veuillez trouver ci-joint les contrats et objectifs Y + CMR du jour du " & Format(Now() + 1, "dd/mm/yyyy") & " . """
        .Display

        Set wDoc = myItem.GetInspector.WordEditor

        Premier tableau
        Sheets("Recap contrat").Range("B2:M54").CopyPicture
        wDoc.Application.Selection.Paste

    End With

    Set OL = Nothing
    Set myItem = Nothing
    Set wDoc = Nothing

 End Sub