Imprimer une sélection en pdf

Bonjour,

Je voudrais imprimer seulement les pages contenant des infos, hors lorsque je lance ma macro, seules 2 feuilles sont remplies, mais lors de mon impression pdf j'ai 3 feuilles qui s'imprime en pdf.

'----------------------------------------------
        'Enregistrement format PDF
'----------------------------------------------
    'Dim Chemin As String

    Set WsS0 = Workbooks("Formulaire de Demande de Travaux.xlsm").Worksheets("FeuilDT")

    WsS0.Activate

    'Dernière ligne non vide de la colonne B
    aLR = WsS0.Range("B" & Rows.Count).End(xlUp).Row

    WsS0.Range("$A$1:$G$" & aLR).Select

            Chemin = Chemin & Range("B2").Value & "_" & Range("C6").Value & "_" & Range("G6").Value & ".pdf"
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF _
            , Filename:=Chemin _
            , Quality:=xlQualityStandard _
            , IncludeDocProperties:=True _
            , IgnorePrintAreas:=False _
            , OpenAfterPublish:=True

Merci de votre aide.

Bonne journée,

Floo73

Bonjour,

Si ta demande est claire, le bout de code que joins l'est moins.

Tu n'es pas novice sur le forum. Tu sais donc que tes chances de réponse augmenteront avec l'envoi d'un fichier.

Cdlt.