Enregistrement pdf avec ligne et colonne masquée

Bonjour, j'ai une erreur dans ce code

Sub ImprimeMasquePUM()
Dim rng As Range
Dim lig As Range
Dim nompdf As String
Dim dossier As String

    Application.ScreenUpdating = False
    With ActiveSheet
        Set rng = .Range("1:3")
        rng.EntireRow.Hidden = False
        Set rng = .Range("1:2,5:5,138:138")
        rng.EntireRow.Hidden = True
        Set lig = .Range("A:A,E:F,H:I,K:L,N:N")
        lig.EntireColumn.Hidden = True
        .PageSetup.BlackAndWhite = True 'paramétrage N&B
    dossier = ThisWorkbook.Path
    nompdf = dossier & "\" & Sheets("TARIF").Range("G3")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
     .PageSetup.BlackAndWhite = False 'réinitialisation
        rng.EntireRow.Hidden = False
        lig.EntireColumn.Hidden = False
        Set rng = .Range("1:3")
        rng.EntireRow.Hidden = True
    End With

    Set rng = Nothing
    Set lig = Nothing

End Sub

Je souhaite lorsque je clique sur mon bouton:

- masquer certaines colonnes et lignes de ma feuille active

- mettre la feuille en noir et blanc

- enregistrer en pdf

-remettre la feuille en couleur initiale

- garder certaines lignes masquée et afficher les autres

Avec cette commande:

.PrintOut Preview:=True   'imprime avec aperçu

J'arrive a faire un aperçu avant impression mais ça ne me propose pas le choix de l'imprimante, du coup, ça imprime directement sur l'imprimante par défaut...