Bonjour,
Sub Enregitrer_Sous_PDF()
Dim varResult As Variant
'affiche la boite de dialog "Enregistrer sous"
varResult = Application.GetSaveAsFilename(FileFilter:="PDF Files (*.pdf), (*.pdf)", Title:="Some Random Title", InitialFileName:="MonFichier")
'Vérifier si le bouton cancel a été sélectionné
If varResult = False Then MsgBox "Le fichier n'a pas été enregistré"
End Sub