Conserver la mise en forme d'un texte pour pied de page

[Bichkek]

Bonjour à tous,

J'aimerais pouvoir conserver la mise en forme (Police, taille, pas en gras, pas souligné, pas en italique) du texte inséré dans une cellule qui me sert de pied de page.

Petite précision au cas où, la cellule I63 est la résultat d'une fonction.

Voilà le code que j'ai pour l'instant dans le Workbook:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = Range("I63").Value
End Sub

Merci par avance pour votre aide!