Sub imprimersaufvide()
Dim ligne As Integer
For ligne = Cells(Rows.Count, 2).End(xlUp).Row To 4 Step -1
If Cells(ligne, 2).Value = "" Then
Rows(ligne).EntireRow.Hidden = True
End If
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Cells.Select
Selection.EntireRow.Hidden = False
End Sub
Sub masquersivide()
Dim ligne As Integer
For ligne = Cells(Rows.Count, 2).End(xlUp).Row To 4 Step -1
If Cells(ligne, 2).Value = "" Then
Rows(ligne).EntireRow.Hidden = True
End If
Next
End Sub