Insérer texte dans un texte mail via VBA

Bonjour,

Je souhaiterais faire une macro permettant d'insérer du texte dans un mail.
La difficulté est que mail a déjà du texte qui est un tableau que je copie colle depuis Excel.
J'aimerais donc rajouter avant ce tableau le texte suivant:
"Bonjour,
"Je souhaiterais aborder ce(s) différent(s) lors de la ou les prochaines réunions de performance hebdomadaire."

et à la fin du mail mettre "Cordialement".

J'ai fait de mon côté une ligne de code mais ça ne fonctionne pas.
Merci de votre aide!! :)

Sub Envoyer_un_tabeau_OK_AvecMessage_Ok()
    '
    'Déclaration de la variable
    Dim MaFeuille As Worksheet
    Dim NbLigne As Integer
    Dim rng As Range
    Dim emailBody As String
    Dim strDate As String

    'Affectation des variables
    Set MaFeuille = ThisWorkbook.Sheets("Réunion de perf")

    'Désactivation du raffraichissement de l'écran
    Application.ScreenUpdating = False

    'On calcule le nombre de lignes à prendre
    NbLigne = MaFeuille.Range("F" & MaFeuille.Rows.Count).End(xlUp).Row

    'Supprimer tous les filtres pour s'assurer que nous partons d'un état non filtré
    MaFeuille.AutoFilterMode = False

    'Filtrer la colonne C pour n'inclure que les cellules vides et celles contenant "En attente" & les dates > à aujourd'hui
    Set rng = MaFeuille.Range("F7:G" & NbLigne)
     rng.AutoFilter Field:=1, Criteria1:="=", Operator:=xlOr, Criteria2:="En Attente"
     rng.AutoFilter 2, ">=" & Format(Date, "mm/dd/yyyy")

    'On selectionne la plage à copier (après le filtrage)

    MaFeuille.Range("B5:G" & NbLigne).Select

    'Avec l'objet Mail
    ActiveWorkbook.EnvelopeVisible = True
    With Selection.Parent.MailEnvelope.Item

            .To = MaFeuille.Range("B3").Value
            .CC = MaFeuille.Range("C3").Value
            .Subject = MaFeuille.Range("B5").Value

            'Initialisation du corps de l'e-mail
            emailBody = "Bonjour," & vbCrLf & vbCrLf & _
                        "Je souhaiterais aborder ce(s) différent(s) lors de la ou les prochaines réunions de performance hebdomadaire. Vous pouvez vous rendre sur le fichier ici:" & vbCrLf & vbCrLf

            'Ajouter le contenu du tableau au corps de l'e-mail
            emailBody = emailBody & Selection.Parent.MailEnvelope.Item.Body

            'Ajouter le corps de l'e-mail au message
            .Body = emailBody

            .Send
        End With

    'Réactiver les messages d'alerte
    Application.DisplayAlerts = True

    'Supprimer le filtre
    MaFeuille.AutoFilterMode = False

    'Réactiver le raffraichissement de l'écran
    Application.ScreenUpdating = True

    Range("A1").Select
End Sub