Modifier un contenu Outlook depuis une macro Excel

Bonjour,

Je cherche à supprimer une partie du texte d'un message Outlook que je transfère avec un code vba sous excel

Ce que j'ai besoin de réussir à faire c'est de ne conserver le texte qu'à partir du mot "Entretien" et tout le reste ne doit pas rester dans le corps du message.

Merci pour votre aide

Le code tel qu'il se présente actuellement sans la partie pour ôter ce dont je n'ai pas besoin

Public CorpsMessage As String
Sub LireMessagesDuDossierTest()
Dim olApp As Object, NS As Object, Dossier As Object
Dim OlExp As Object
Dim i As Object
Set olApp = CreateObject("Outlook.Application")
Set OlExp = olApp.ActiveExplorer
Set NS = olApp.GetNamespace("MAPI")
Set Dossier = NS.Folders("monadressemail@toto.fr").Folders("Boîte de réception")
Set Dossier = Dossier.Folders("MR")
For Each i In Dossier.Items
If InStr(i.Subject, "mot") Then
contenumessage = i.Body
Call Envoyer_Mail_Outlook
End If
Next i
End Sub