barre de progression impression mise en page

Sub Noir_et_blanc()
    Application.ScreenUpdating = False
    Dim iWsh As Integer
    Dim oWsh As Worksheet
    Dim PctDone As Single
   [COLOR=red]Dim i As Integer[/COLOR]
    iWsh = ThisWorkbook.Worksheets.Count
   [COLOR=red]For i = 12 To iwhs[/COLOR]
        [COLOR=red]Set oWsh = Worksheets(i)[/COLOR]
[COLOR=red]       PctDone = i / (iWsh - 11)[/COLOR]
        With userfbarrenoir
            .FrameProgress.Caption = Format(PctDone, "0%")
            .LabelProgress.Width = PctDone * (.FrameProgress.Width - 10)
        End With
        ' The DoEvents statement is responsible for the form updating
        DoEvents
        [COLOR=red]With oWsh[/COLOR]
            .PageSetup.PrintArea = "$A$1:$W$55"
            [COLOR=red]With .PageSetup[/COLOR]
                .LeftHeader = ""
                .CenterHeader = ""
                .RightHeader = ""
                .LeftFooter = ""
                .CenterFooter = ""
                .RightFooter = ""
                .LeftMargin = Application.InchesToPoints(0)
                .RightMargin = Application.InchesToPoints(0)
                .TopMargin = Application.InchesToPoints(0)
                .BottomMargin = Application.InchesToPoints(0)
                .HeaderMargin = Application.InchesToPoints(0)
                .FooterMargin = Application.InchesToPoints(0)
                .PrintHeadings = False
                .PrintGridlines = False
                .PrintComments = xlPrintNoComments
                .PrintQuality = -3
                .CenterHorizontally = False
                .CenterVertically = False
                .Orientation = xlLandscape
                .Draft = True
                .PaperSize = xlPaperA4
                .FirstPageNumber = xlAutomatic
                .Order = xlDownThenOver
                .BlackAndWhite = True
                .Zoom = False
                .FitToPagesWide = 1
                .FitToPagesTall = 1
            End With [COLOR=red]'PageSetUp[/COLOR]
        [COLOR=red]End With 'oWsh[/COLOR]
        'apercu
        [COLOR=red]'oWhs.PrintPreview[/COLOR]
    Next i
    Application.ScreenUpdating = True
    Unload userfbarrenoir
End Sub