XL 2010 En-tête et pied de page par VBA

[Appo1985]

Bonsoir.
Je voudrais définir l'en-tête et le pied de page de mon document par VBA mais le soucis est que je n'arrive pas à aller à la ligne.
J'ai indiqué en commentaire des exemples d'informations que je voudrais ajouter au niveau de l'entête.
Merci d'avance pour le soutien.
Ci joint mon fichier

 

[Appo1985]

Bonsoir.
Je voudrais définir l'en-tête et le pied de page de mon document par VBA mais le soucis est que je n'arrive pas à aller à la ligne.
J'ai indiqué en commentaire des exemples d'informations que je voudrais ajouter au niveau de l'entête.
Merci d'avance pour le soutien.
Ci joint mon fichier

La première ligne est :
Dim titre as string

 

[jpb388]

Bonjour à tous
essaye ceci

Sub EntetePiedPersonnalise()
      Dim myText As String
      titre = InputBox("Entrez le titre ici", "Titre du document")
      With ActiveSheet.PageSetup
            .LeftHeader = "Nom du pays" & Chr(10) & "nom de la region" & Chr(10) & "nom de la province" & Chr(10) & "nom de la circoncription"
            .CenterHeader = titre
            .RightHeader = "ICI le 01/08/2023"
            .LeftFooter = ""
            .CenterFooter = ""
            .RightFooter = ""
      End With
End Sub

 

[Appo1985]

Merci beaucoup @jpb388 c'est ce que je voulais.