XL 2013 Macro envoi mail par SendMail

[MCB]

bonjour, j'ai créé un macro pour envoyer un onglet par mail , ce qui fonctionne très bien , mais je voudrai que le mail ne soit pas envoyé directement mais que je puisse y accéder pour y noter une phrase d'accompagnement ( Body) car je passe par sendmail et non par outlook.
voici ma macro
Sub Test()


Dim Destinataire As String, Sujet As String

Dim AccuseReception As Boolean

Destinataire = Range("Mail!A1")

Sujet = "essai"

AccuseReception = False
ReturnReceipt = False

ThisWorkbook.Sheets("Envoi mail").Copy

ActiveWorkbook.SendMail Destinataire, Sujet, AccuseReception

ActiveWorkbook.Close False
ReturnReceipt = False

End Sub

merci pour votre aide car cela fait un moment que je cherche et je suis sans idée
MCB