macro imprimer avec présentation

[louloudal]

bonjour le forum,
j'ai une macro 'imprimer'
qui demande à l'utilisateur la plage que celui-ci veut imprimer
Qui cré une visualisation avec une en-tête et pied de page !
Je souhaiterai demander avant le lancement de la visualisation quel en-tête spécifique l'utilisateur veux mettre et l'intégrer dans lavisualisation !!
est-ce possible ?
Merci de votre aide


ci joint mon code :

Sub Imprimer()
'
' Imprimer Macro
'
'
Dim Plage As Range
On Error Resume Next
Set Plage = Application.InputBox('A l'aide de la sourie', 'Sélectionnez la zone à imprimer', Type:=8)
On Error GoTo 0
If Plage Is Nothing Then Exit Sub
Application.Goto Plage
If MsgBox('Voulez-vous imprimer la zone sélectionnée ?', vbYesNo) = vbYes Then
With ActiveSheet.PageSetup
.LeftHeader = ''
.CenterHeader = '&''Arial,Gras''[u]&20VOITURE 1[/u]'
.RightHeader = ''
.LeftFooter = ''
.CenterFooter = '&D'
.RightFooter = '&T'
.LeftMargin = Application.InchesToPoints(0.31496062992126)
.RightMargin = Application.InchesToPoints(0.31496062992126)
.TopMargin = Application.InchesToPoints(0.984251968503937)
.BottomMargin = Application.InchesToPoints(0.984251968503937)
.HeaderMargin = Application.InchesToPoints(0.511811023622047)
.FooterMargin = Application.InchesToPoints(0.511811023622047)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.CenterHorizontally = True
.CenterVertically = True
.Orientation = xlLandscape
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
ActiveSheet.PageSetup.PrintArea = Plage.Address
ActiveSheet.PrintOut preview:=True
End If

End Sub