imprimer jusqu'à la dernière ligne remplie en VBA

[Duc]

Bonjour à tous

je cherche le moyen en VBA d'imprimer une sélection non définie,simplement sur le fait de tenir compte de la dernière ligne remplie et jusqu'à la colonne H.

Vous remerciant par avance.
Duc

 

[Michel_M]

Bonjour Duc,

ci dessous proposition


Sub imprimer_utile()

Dim fin As String

fin = ActiveCell.SpecialCells(xlLastCell).Address
With ActiveSheet
.PageSetup.PrintArea = "$A$1:" & fin
.PrintOut
.PageSetup.PrintArea = ""
End With


End Sub

A+
Michel