masquer lignes vides pour impression

Option Explicit

Private Sub CommandButton1_Click()
' Impression des fiches de suivi
Dim Cell As Range
'
  Application.ScreenUpdating = False

  With Sheets('Données')
    For Each Cell In .Range('C2:C' & .Range('C65536').End(xlUp).Row)
      If Not Cell.EntireRow.Hidden Then
        Range('G2') = Cell
        Range('C12') = Cell.Offset(0, 1)
        Range('C13') = Cell.Offset(0, 3)
        Range('C14') = Cell.Offset(0, 4)
        Range('G12') = Cell.Offset(0, 5)
        Range('E13') = Cell.Offset(0, 6)
        Range('E14') = Cell.Offset(0, 7)
        ActiveSheet.PrintOut
      End If
    Next Cell

    ' mise à vide des cellules aprés impression
    Range('C12,C13,C14,E13,E14,G2,G12').Select
    Selection.ClearContents
    Range('G2').Select
  End With

  Application.ScreenUpdating = True

End Sub

Cliquez pour agrandir...