Bug envoi de mail avec Outlook via Excel

[nougitch]

Bonjour,

J'utilise Excel et Outlook 2003.
Un phenomene etrange se produit.
Si la taille de la police = 8 alors, le fond de mon mail est gris et tout est aligne a droite.
Si la taille de la police est de n'importe quel autre taille, tout est normal (fond blanc et aligne a gauche).

Auriez-vous une idee ?
Helas, je ne peux vous joindre le fichier.

Voici mon code :

Private Function fcnEmail()

    ActiveSheet.Cells(1, 1).CurrentRegion.Select

    ActiveWorkbook.EnvelopeVisible = True

    With ActiveSheet.MailEnvelope
        .Introduction = "Cet e-mail est genere automatiquement"
        .Item.To = "mail@nomdedomaine.com"
        .Item.Subject = "Titre"
        .Item.Send
    End With

    Cells(1, 1).Select

End Function

Merci par avance pour votre aide.
Cdt,