Bonsoir,
Macro à affecter à ton bouton, en définissant les éléments manquants (chemin du dossier et nom du fichier).
Sub EnregFiche()
Dim ch$, fich$
ch = "X:\chemindu dossier\" 'chemin dossier à définir
fich = "NomFichier.pdf" 'nom du fichier à définir
Worksheets("fiche").ExportAsFixedFormat xlTypePDF, ch & fich
End Sub
Cordialement.