Sub Enreg_Pdf()
Dim Nom$: Nom = [C2]
FileSaveName = Application.GetSaveAsFilename(InitialFileName:=Nom & Format(Date, "dd_mmmm_yyyy") & ".pdf", filefilter:="Fichier PDF(*.pdf), *.pdf")
If FileSaveName <> False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FileSaveName, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
End Sub