Filtres cellules vides VBA avant génération Pdf

Bonjour à tous,

Ci-joint un fichier facture dont je suis obligé manuellement de me servir d'un filtre pour masquer les lignes vides avant de générer le Pdf ou d'imprimer afin d'être plus présentable.

Ma question est :

Est il possible s'il vous plait en code de masquer à chaque fois ces lignes vides et qu'elles réapparaissent après l'impression ou le Pdf ?

Je précise que la feuille est bloquée mais en autorisant les filtres.

Merci par avance

@ toute....

Une petite précision qui a son importance, il faut que le filtre soit sur la colonne A [A19:A29]

En effet, je viens d'adapter un bout de code mais qui ne fonctionne pas car dans les colonnes F et G de la partie facture il y a des formules !

Je me mets donc en quête d'une nouvelle piste

@ +

C'est bon j'ai trouvé la solution ; ci dessous le code pour le Pdf

Sub Macro9_Pdf()

Dim Chemin As String
Dim NFichier As String

  Chemin = Application.ActiveWorkbook.Path & "\"

    NFichier = "Facture pour " & Range("FACTURE!E6") & " " & "du" & " " & Format(Now, "dd-mmm-yyyy") & " à " & Format(Now, "hh-mm") & ".pdf"

        ActiveSheet.Range("$A$18:$H$38").AutoFilter Field:=1, Criteria1:="<>"
    ActiveWindow.SmallScroll Down:=-18

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & NFichier, Quality _
        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

        ActiveSheet.Range("$A$18:$H$38").AutoFilter Field:=1

End Sub

A toute les louloutes