Garder la mise en forme lors de l'envois d'un document par email

Bonjour,

je viens de creer un formulaire sous word. L'idee est de l'envoyer via email (le Body de l'email etant le formulaire complete).
Cela marche bien sauf que le formulaire apparaît sans aucune mise en forme dans outlook... Si quelqu'un a une idee pour avoir mon document tel qu'il est dans word dans outlook, ca me depannerait vraiment!

Voici le code :

Private Sub CommandButton1_Click()
Dim OL As Object
Dim EmailItem As Object
Dim Doc As Document

Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Set Doc = ActiveDocument


With EmailItem
.Subject = "Formulaire"
.Body = ActiveDocument.Content
.To = "***@***"
.Importance = olImportanceNormal
.Display
End With

Application.ScreenUpdating = True

Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing

End Sub