Macro pour enregistrer sur bureau

Bonjour,

J'ai créé une macro qui me permet d'enregistrer sur mon bureau un fichier excel sous PDF. Le code est le suivant :
ChDir "C:\Users\LELIEVRE-02218\Desktop\Grille CMU"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\LELIEVRE-02218\Desktop\Grille CMU\DOC_CPAM_INT.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

Mon problème est que ce fichier peut-être utilisé par plusieurs personnes sur des postes de travail différent.
Je voudrais modifier le code pour le permettre à chacun de l'enregistrer sur son propre bureau.
Quelqu'un peut-il m'aider? Merci