Entete/Pied de Page dans cellule

Bonjour,

J'aimerais récuperer la 2ieme ligne de mon CenterHeader dans une cellule

Idealement, j'aimerais aussi renommer mon onglet en fonction de ce CenterHeader .

Pour l'instant j'ai ca :

    Application.PrintCommunication = False
    With ActiveSheet.PageSetup.CenterHeader
    End With
    Application.PrintCommunication = True
    Range("A1").Select
    ActiveSheet.Paste

Mon Center Header a 3 ligne, du coup j'ai des données de A1 à A3, mais je ne voudrais que la 2ieme ligne en A1

Je bloque totalement, si vous avez une idée ?

Merci beaucoup.

EDIT : j'avais mis le fichier vierge sans mon début de code... Mis à jour !