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