'A modifier selon le besoin
'cheminPDF = ThisWorkbook.Path 'Pour sauvegarder dans le dossier courant du fichier Excel
cheminPDF = C:\Users\username\Desktop\
nomFichier = Range("K16").Value2
'Pour le fichier PDF
'ActiveSheet pour la feuille active, ou Range("XX:XX") pour une range définie
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
cheminPDF & nomFichier & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
'Pour faire un Enregistrer Sous du classeur actif
ActiveWorkbook.SaveAs Filename:=cheminPDF & nomFichier & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False