Sub Masquer_ligne_avant_impression2()
Dim Ligne As Integer
Dim Colonne As Byte
For Ligne = 7 To 66
For Colonne = 1 To 21
If Cells(Ligne, Colonne) <> "" And Cells(Ligne, Colonne) <> "0" Then GoTo Saut1
Next Colonne
Rows(Ligne & ":" & Ligne).EntireRow.Hidden = True
Saut1:
Next Ligne
For Ligne =68 To 130
For Colonne = 1 To 21
If Cells(Ligne, Colonne) <> "" And Cells(Ligne, Colonne) <> "0" Then GoTo Saut2
Next Colonne
Rows(Ligne & ":" & Ligne).EntireRow.Hidden = True
Saut2:
Next Ligne
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Rows("2:140").EntireRow.Hidden = False
End Sub