macro pour impressison

[alain85]

Bjr, peut-on avec une macro ne pas imprimé les lignes vierges, exemple
j'ai un tableau lignes 5 à 10, lignes 6 à 14 vierges, et 1 tableau ligne 15 à 20, je voudrais qu'a l'impression les 2 tableaux se touchent.
merci si quelqu'un peut m'aider

[alain51]

Salut,

Code : Tout sélectionner

 Sub SuppLigneVides()
With ActiveSheet.UsedRange
derLi = .Row + .Rows.Count - 1
End With
Application.ScreenUpdating = False
For r = derLi To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Sub

Il faut commencer par la dernière ligne et remonter.

[alain85]

Aquel endroit il faut indiquer la dernière ligne?