XL 2010 vba : impression des lignes non vides uniquement

Sub MasquerLesLignesVides()
Dim NbLignes As Long, i As Long, Debut
    Application.ScreenUpdating = False
        NbLignes = Range("A65535").End(xlUp).Row
        For i = NbLignes To 3 Step -1
            If Range("IV" & i).End(xlToLeft).Column = 1 And Cells(i, 1) = Empty _
               Then Rows(i).Hidden = True
        Next i
    Application.ScreenUpdating = True
End Sub

Sub Macro1()
Dim DerLig&
DerLig = Cells(Rows.Count, 1).End(3).Row
Range("A1:A" & DerLig).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
ActiveSheet.PageSetup.PrintArea = ActiveSheet.UsedRange.Address
ActiveSheet.PrintPreview
End Sub