[VBA M365] Mettre en forme le corps d'un email

Bonjour le forum

A tous je vous souhaite une bonne et heureuse année 2026.

La mienne débute avec un petit casse tête que je n'arrive pas à résoudre : je souhaiterais mettre en forme le texte d'un email que je génère à partir de mon fichier Excel.

Je cherche :

• A mettre une phrase en gras.
• A mettre une phrase en rouge.
• A mettre une phrase en italique.
• A souligner une phrase.

Options facultatives :

• A garder un lien hypertexte afin que le site précisé dans mon code soit cliquable dans l'email généré.
• Générer une pul.ce (La flèche ou un point par exemple)

Cela fait des heures que j'essaye de bidouiller mon code mais rien à faire...

Un million de fois merci pour toutes les personnes qui pourront m'aider. Coeur sur vous.

P.S J'utilise un Worddoc car à la suite du code je copie un tableau pour le coller à la suite dans l'email.

With OutlookMail

    'Sujet, destinataire, signature
    .To = ActiveSheet.Range("B" & J).Value
    .Subject = "IMPORTANT : Blabla/ Passage blabla(" & ActiveSheet.Range("E" & J).Value & ")"
    .Display    'affichage pour insertion signature

    'Corps du mail
    Set WordDoc = .GetInspector.WordEditor
    Set WordRange = WordDoc.Range(0, 0)
    With WordRange
        .InsertAfter "Madame, Monsieur," & vbCrLf & vbCrLf
        .InsertAfter "Texte 1 Texte 1 Texte 1 Texte 1" & vbCrLf & vbCrLf
        .InsertAfter "Texte 2 Texte 2 Texte 2 Texte 2 Texte 2 " & vbCrLf
        .InsertAfter "Texte 3 Texte 3 Texte 3 Texte 3 " & vbCrLf & vbCrLf
        .InsertAfter "Texte 4 Texte 4 Texte 4 Texte 4 " & vbCrLf
        .InsertAfter "=> Texte 4.1" & vbCrLf & vbCrLf
        .InsertAfter " => Texte 4.2" & vbCrLf & vbCrLf
        .InsertAfter " => Texte 4.3" & vbCrLf & vbCrLf
        .InsertAfter "Je reste à votre disposition et n'hésitez pas à revenir vers moi si vous avez la moindre question !" & vbCrLf

    End With

    .Display ' Afficher le brouillon du mail pour permettre à l'utilisateur de le vérifier avant envoi

End With

Bonsoir,

veuillez trouver ci joint une proposition qui permet d'envoyer un mail en y mettant une plage de données Excel de façon à ce que celle-ci soit modifiable dans le mail, un copier/coller du tableau du mail vers Excel est faisable.
Avec les mise en formes décrites, à vous de structurer votre mail maintenant :

@ bientôt

LouReeD

Bonsoir Loureed,

Grand merci pour ton aide !

Je me permets une dernière question : en cliquant sur votre bouton tout fonctionne à merveille mais mon email se trouve sans signature :s.

Possible de l'insérer via la VBA ?

Mille merci de vous avoir pris de votre temps,

Bonne soirée,

Bonsoir,

si vous n'avez qu'une signature attaché à votre compte E-mail utilisé pour envoyer le message alors voici le fichier avec le code modifié :

@ bientôt

LouReeD

Merci beaucoup c'est P A R F A I T