XL 2010 Créer des entêtes en VBA

Sub MEPage_IG()
Dim MOIS As String
Dim VDUREE As String
Dim VDATEJOUR As Date
Dim VINIT As String

'Définition de boite de messages
MOIS = InputBox("Entrer le mois et l'année : Exemple : si requête lancée en mai noter avril 2016")
VDUREE = InputBox("définir la durée : 10 ou 18 mois")
VDATEJOUR = InputBox("Entrer la date du jour au format JJ/MM/AAAA")
VINIT = InputBox("Entrer vos initiales")

    With ActiveSheet.PageSetup
        .LeftHeader = "&b" & "&8" & "Requête du " & VDATEJOUR
        .CenterHeader = "&b" & "&11" & "Contrôle Interne Supervision " & VDUREE
        .RightHeader = "&b" & "&8" & "Exécutée par " & VINIT
        .LeftMargin = Application.InchesToPoints(0.78740157480315)
        .RightMargin = Application.InchesToPoints(0.78740157480315)
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        .BottomMargin = Application.InchesToPoints(0.984251968503937)
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        .CenterHorizontally = True
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .FitToPagesWide = 1
        .PrintErrors = xlPrintErrorsDisplayed
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
    End With
        ActiveSheet.PrintPreview
    ActiveSheet.PageSetup.PrintArea = "$A$1:$H$35"
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
  End Sub