Sauvegarder PDF par macro

Bonjour
J'importe des données dans un modèle EXCEL, lequel je sauvegarde sous un nom de classeur, disons GESTION. Ce classeur possède 3 onglets: TRAVAIL, RAPPORT PAGE 1, et RAPPORT PAGE 2. Seulement les 2 pages de RAPPORT doivent être sauvegardées en PDF

J'ai créé une macro pour créer un fichier PDF qui va sauvegarder ce PDF sur le bureau, sous le nom de fichier GESTION que je viens de nommer.

Cela fonctionne. Mais lorsque je veux réouvrir mon modèle pour importer d'autres données et créer un autre nom de fichier, cela ne fonctionne pas, en ce sens qu'il fait le travail, mais conserve l'ancien nom de classeur (STATISTIQUES FORMATIONS) dans le cas présent).
Je voudrais qu'il prenne toujours le nom du classeur que je sauvegarde à chaque opération au lieu de prendre STATISTIQUES FORMATIONS par défaut.

À la rigueur, il pourrait prendre le référence de cellule G2 de l'onglet TRAVAIL

Voici mes données:

Sheets(Array("RAPPORT PAGE 1", "RAPPORT PAGE 2")).Select
Sheets("RAPPORT PAGE 1").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Ordi8\Desktop\STATISTIQUES FORMATIONS.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets("RAPPORT PAGE 2").Select
ChDir "C:\Users\Ordi8\Desktop"

Merci beaucoup de votre aide