Fond d'email noir lors d'envoi automatique en VBA

Bonjour à tous,

J'ai besoin d'envoyer des mails automatiques avec une plage de cellule fixe.

Le code fonctionne puisque je reçois bien l'email, cependant je n'ai pas le même rendu sur l'email reçu que sur Excel. Pour une raison inconnue, de nombreuses cellules sont colorées en noire...

Ci-joint les deux aperçus (aperçu Excel et aperçu Outlook);

Ci-dessous le code :

Code :
ActiveSheet.Range("K331:AD347").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
    .Introduction = "..."
    .Item.To = "..."
    .Item.Subject = "..."
    .Item.Send
End With