sauvegarde PDF avec VBA

Private Sub SAUVEGARDE_Click()
'********************************************************************************************************
'********************************************************************************************************
'                                     Exemple
'********************************************************************************************************
'********************************************************************************************************
Dim nom_correspondant As String
nom_correspondant = Sheets("CALCULS").Range("DX6").Text
MsgBox nom_correspondant, vbInformation
Stop
'ici nom_correspondant est une variable qui contient l'information de la cellule que tu souhaites
'ici sauvegarde sur ton bureau chez moi : C:\Users\PAPA\Desktop
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:="C:\Users\PAPA\Desktop\" & nom_correspondant & ".PDF", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'********************************************************************************************************
'********************************************************************************************************
Stop
UserForm1.Hide
Sheets("GRAPHES").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:="C:\Graphe.PDF", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Sheets("PLAN ANNUEL").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:="C:\Plan Annuel.PDF", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
UserForm1.Show
End Sub