Ne pas imprimer si vide via VBA

Bonjour,

J'aimerais que les lignes vides( en jaune dans l'exemple ci jpoint) ne soient pas prise en compte dans l'impression.

Merci de votre aide

Jules

Bonjour,

à tester

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

Oui mais si je veux passer en PrintPreview ça ne marche pas.

C'est normal ??

ok

dans ce cas, arrête le code ici

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

C'est bon j'y suis arrivé.

Merci beucoup