Corriger une maco pour imprimer

Sub PrintLoopingSpecial()

Dim WSSource As Worksheet
Dim WSCible As Worksheet
Dim RangeListName As Range, CellName As Range
Dim PageFrom As Byte, PageTo As Byte, NbCopy As Byte

Set WSSource = Worksheets("IMPRIM")
With WSSource
    Set RangeListName = .Range("F6:F30")
End With

For Each CellPara In RangeListName
    If Not CellPara = "" Then
            Set WSCible = Worksheets(CStr(CellPara.Offset(0, 1).Text))
            NbCopy = CellPara.Offset(0, 2)
            PageFrom = CellPara.Offset(0, 3)
            PageTo = CellPara.Offset(0, 4)
            With WSCible
                .Range("F1") = CellName
                .Calculate
                .PrintOut From:=PageFrom, To:=PageTo, Copies:=NbCopy
            End With
    End If
Next
End Sub