Imprimer seulement les pages non vide avec un bouton

Salut , J'aimerais m’intégrer un bouton pour imprimer . Mais je n'arrive pas a le faire imprimer seulement les page qu'il y a des donnée.

Chaque Ligne contient des donner pour une page en particulier . donc ligne 4 équivaut au donner de la première page. comment faire pour que si j'ai des donner décris sur la ligne f4 f5 f6 f7 mais pas f8 ... cela m'imprime seulement les 4 premières pages ?

If Not IsEmpty(Range("f4")) Then

    Sheets("cheqprint").Select
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=5, Copies:=1, _
     Collate:=True, IgnorePrintAreas:=False
     End If

 

Merci

Mathieu

Comprenez-vous bien ?