[VBA] Insertion texte dans mail

Bonjour à tous,

Je viens de trouver un code permettant d'ajouter du texte dans un mail :

Sub InsertText()

Set objDoc = Application.ActiveInspector.WordEditor
Set objSel = objDoc.Windows(1).Selection
objSel.TypeText Text:="Hello!"

End Sub

Cliquez pour agrandir...

Je souhaite modifier le "Hello!" par le texte suivant:

Hello

Je suis wizard0147

Cliquez pour agrandir...

(en respectant le texte en gras, souligné et italique et sur plusieurs lignes)

Je cherche mais pas moyen. Quelqu'un aurait-il une idée?

Meci d'avance