Copier l'intitulé d'une cellule dans l'en-tête

Bonjour,

Je souhaite mettre le contenu d'une cellule (D16) en "en-tête gauche" :

Sub TEST()
   ActiveSheet.PageSetup.LeftHeader = Range("D16").Value
End Sub

Pour le moment, pas de problème, ça marche.

Par contre, j'aimerai mettre la cellule (D16) qui correspond au "nom du client" en gras, avec la police "Malgun Gothic" en taille "18"

Merci, j'en suis pas très loin mais je n'y arrive pas, j'ai testé plusieurs choses mais me manque qqch. Quand je fais enregistrement macro pour voir le code, ben il y a un nombre important de ligne, ça encore n'est pas le problème, j'enlève celle dont j'ai pas besoin mais je n'arrive pas à obtenir un changement de taille, mettre en gras et changer la police. En "en-tête" c'est plus difficile mais si quelqu'un a la réponse, merci.

Bonjour,

J'ai trouvé la solution :

Sub TEST()
With ActiveSheet.PageSetup ' COPIER LA CELLULE "D16" EN ENTÊTE EN HAUT À GAUCHE EN "ARIAL""GRAS" ET DE TAILLE "22"
    .LeftHeader = "&""Arial,Gras""&22" & [D16] & vbLf
End With
End Sub