Sub Imrimer()
'imprime les lignes dont la colonne D est vide
On Error Resume Next
With Intersect([A:F], [A:A].SpecialCells(xlCellTypeConstants).EntireRow)
Intersect([D:D], .Cells).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
ActiveSheet.PageSetup.PrintArea = .Address
End With
ActiveSheet.PrintOut 'impression
Rows.Hidden = False
End Sub