Réduction d'un collage de tableau Excel dans un mail

Bonjour,

via une macro VBA

Sub Mail

ActiveSheet.Range("C1:X106").Select

ActiveWorkbook.EnvelopeVisible = True

With ActiveSheet.MailEnvelope

.introduction = "Bonjour," &Chr(13) & Chr(10) & "merci de trouver blabla"

.item.To ) Range ("AH5")

.Item.Subject = Range ("H1")

.Item.Display

End With

End Sub

J'envoie donc la plage C1:X106 dans un mail, cependant la plage étant assez grande, c'est trop grand dans l'eamil.

Existe t'il une fonction permettant de réduire la "taille" qui sera affichée dans l'email (par exemple 80% de la taille normale)

J'espère avoir été compréhensible et vous remercie par avance de vos suggestions

Bonne soirée