XL 2016 Insérer le champ Titre des propriétés Excel en Entête

Insérer le champ Titre des propriétés Excel en Entête
Bonjour tout le monde,

Je souhaite intégrer le champ de propriété Titre de mon classeur Excel en entête au centre, et je pense qu'il faut un code VBA mais que je n'arrive pas à trouver.
j'ai déjà dans ThisWorkbook (que j'ai chipé un peu à droite et à gauche) un code pour qu'Excel insert à droite de mon entête 2 références de cellules avec du texte qui dit :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
Dim Police As String
Dim Taille As String
Dim Texte As String

'**VARIABLES À DÉFINIR SELON TES BESOINS**
'Pour le format de ton texte :
Police = "Arial"
Taille = 20
Texte = "Rédacteur : " & _
Worksheets("Interne").Range("B2") & _
Chr(10) & _
"Destinataire : " & _
Worksheets("Interne").Range("B3")

'*******************************************
For Each Sh In ActiveWindow.SelectedSheets
With Sh
With .PageSetup
'.RightHeader = "&""" & Police & _
'",Gras italique""" & "&E" & _
'Taille & Texte
'OU simplement
.RightHeader = Texte
'"Rédacteur : " & _
'Worksheets("Interne").Range ("B2")
End With
End With
Next
End Sub

Auriez-vous une astuce pour ajouter le champ de propriété Titre au centre de mon entête ?

Merci pour votre aide.

Stéf