Imprimer de la première ligne jusqu'à la dernière ligne ayant une écriture

[Safety85]

Bonjour à tous,

Je vous ai mis ci dessous une macro (qu'une personne du forum m'a faite) pour imprimer 2 feuilles à chaque fois.

Mesfeuilles s'appelent toujours sous cette forme '01' et '01G', '02' et '02G', ...

Seulement, je suis sûr de la longueur de mes feuilles du type '01' par exemple. Mais en ce qui concerne les feuilles du type '01G', il peut y avoir de l'écriture jusqu'à la 20ième ligne ou jusqu'à la 40ième ligne.

Alors ma question est simple, est il possible (à l'aide d'une macro) d'imprimer seulement X lignes en fonction de la dernière ligne ayant des caractères?

En plus, l'impression doit se faire que sur les colonnes B à G

MERCI D'AVANCE

Safety85


Public Saisie As Boolean

Public Sub Imprimer()
On Error GoTo err
ActiveSheet.PrintOut
ActiveWorkbook.Worksheets(ActiveSheet.Name & "G").PrintOut
Exit Sub
err:
MsgBox "erreur"
End Sub