macro impression sous condition

[jeo12287]

Bonjour,
Je débute le VBA et j'ai quelques soucis pour compiler deux macros.
Mon objectif: imprimer sous PDF en automatique avec enregistrement auto. Condition: si des cellules de la colonne F sont égales à zero, alors les lignes correspondantes sont masquées à l'impression.

Voici le code d'impresion en PDF avec enregistrement auto:

Sub test()
    Dim a As Worksheet
    Dim sc As Workbook
    Dim nouveauNom
 
    Application.ScreenUpdating = False
 
    Set a = ActiveSheet
    nouveauNom = Range("B1") & " " & Range("D10")
    Set sc = Workbooks.Add(xlWBATWorksheet)
    sc.SaveAs (nouveauNom & ".xls")
    a.Copy Before:=sc.Sheets(1)
    ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
 
    Workbooks(nouveauNom & ".xls").Close savechanges:=False
    Kill nouveauNom & ".xls"
 
    Application.ScreenUpdating = True
 
End Sub

Ensuite, je cherche à impléménter le code suivant introduisant la condition dans le code cité au-dessus:

Sub ImpressionDynamiqueFormules2()
   ActiveWindow.DisplayZeros = False
   lignefin = [A:A].Find("", SearchOrder:=xlByRows, SearchDirection:=xlNext, LookAt:=xlWhole,      LookIn:=xlValues).Row
   ActiveSheet.PageSetup.PrintArea = Range("a1", Cells(lignefin - 1, 2)).Address
   ActiveWindow.SelectedSheets.PrintPreview
End Sub

Ce dernier code a été repris sur le net mais je n'arrive pas à le modifier.

Toute aide sera la bienvenue.