Voici une modeste contribution de débutant : faire un aperçu avant impression d'un tableau ou plage de cellules en ne prenant que les lignes non vides.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Dim lastlig As Long
  With Worksheets("mafeuille")
        lastlig = .Cells(.Rows.Count, "C").End(xlUp).Row 'dans l'exemple la colonne "C" est la référence pour le comptage des cellules non vides car elle est systématiquement renseignée lors d'une nouvelle saisie
        Range("A3:M" & lastlig).PrintPreview 'aperçu de la sélection des lignes non vides depuis la ligne 3 sur une largeur de 13 colonnes
 End With
 
End Sub