Modifier le format du texte par une macro

Bonjour,

Comme je n'ai eu aucune ( :( ) réponse à mon message précédent, je reposte ma demande... Des fois que....

Je suis en recherche d'une macro qui fasse la mise en forme de mon message :
- Sélectionner tout le texte
- Format du texte - Paragraphe - Espacement avant = 0 - Espacement après = 0

Voilà...
Il y a une discussion précédente qui existe sur le sujet mais la réponse donnée ne fonctionne pas chez moi.
La solution était :

12 Set OITEM = ActiveInspector.CurrentItem 'désigne l'élément actif càd le mail
OITEM.HTMLBody = Replace(Replace(OITEM.HTMLBody, "mso-margin-top-alt:auto", "margin-top:0.0pt"), "mso-margin-bottom-alt:auto", "margin-bottom:0.0pt")

Ca ne plante pas mais ca ne change rien au format de mon message.
Je suis bien en HTML, mes macros sont actives (j'ai essayé une autre macro basique trouvée sur le forum et qui a fonctionné)

Auriez vous une solution à me proposer ?
Merci d'avance