PrintArea en VBA depuis ActiveCell

Bonjour a toutes et a tous.

La recherche n'ayant pas aboutie, je me permet de poser la question...

J'ai une feuille nommee "Base", sur laquelle j'ai 31 tableaux identiques, Chaque mois quelques un de ces tableaux sont effectivement remplis, et je voudrais les imprimer, seulement les remplis bien entendu.
Pour ce qui est de rechercher le tableau rempli, aucun probleme, pour le selectionner non plus, mais quand il s'agit de delimiter ses contours avec la fonction "PrintArea"... la je cale...
A savoir que je me sers du code suivant pour la selection...

Dim L, i As Integer
L = Sheets("Base").Range("G65536").End(xlUp).Row
For i = 1 To L
If Sheets("Base").Range("G" & i) = "Data" _
Or Sheets("Base").Range("G" & i) = "Zi" _
Or Sheets("Base").Range("G" & i) = "Simbol cont corespondent" _
Or Sheets("Base").Range("G" & i) = "" Then GoTo C:

Sheets("Base").Select
Range("G" & i).Select
If ActiveCell.Offset(4, -3) = "" Then GoTo C
Range(ActiveCell.Offset(-3, -6), ActiveCell.Offset(40, 2)).Select
ActiveSheet.PageSetup.PrintArea = ????

Exit Sub
C:

Next

Si jamais quelqu'un sait... je suis preneur !

Merci et bonne journee

Olivier