Changer code d'impression pour imprimer en pdf

Bonjour!

Récemment, vous m'avez aidé à créer une commande pour mon bouton d'impression (cacher des lignes à l'impression), ça fonctionne super, je l'ai appliqué dans différents formulaires! Mais maintenant, j'aimerais que le document s'imprime dans un fichier pdf plutôt qu'à l'imprimante... question d'être un peu plus écologique.

Je veux juste que la feuille excel s'ouvre en pdf, je ne veux pas qu'elle s'enregistre automatiquement. À partir du document pdf, l'usager pourra choisir de l'imprimer sur papier et/ou de l'enregistrer.

J'imagine qu'il me faut modifier la ligne ".printOut" mais je n'ose rien tenter de peur de tout foutre en l'air!

Mon code d'impression présentement :

Sub ImprimeMasque()
Dim rng As Range

    Application.ScreenUpdating = False
    With ActiveSheet
        Set rng = .Range("39:39,43:43,45:45,48:48,49:49,52:52,53:53,58:58,61:61")
        rng.EntireRow.Hidden = True
        .PrintOut
        rng.EntireRow.Hidden = False
    End With

    Set rng = Nothing

End Sub

Merci à l'avance!

Remplace.printout par :

    Dim nompdf As String
    nompdf = Environ("Temp") & "\" & "ma_feuille_excel"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Wow! Merci!! C'est PARFAIT!