XL 2016 enregistre en pdf ou imprimer une userform

Option Explicit

Sub Tst_PDF()
Dim sPrinterDefault As String
Dim sChemin As String, sNom As String

    sPrinterDefault = Application.ActivePrinter

    Application.ActivePrinter = "Adobe PDF sur NE07:"

    sChemin = ThisWorkbook.Path
    sNom = sChemin & "\" & "Datas.pdf"

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

    Application.ActivePrinter = sPrinterDefault
End Sub