Sauvegarder en PDF dans un répertoire choisi

Bonjour, j'ai un petit problème qui d'après moi est simple a régler mais malgré tout mes recherches je n'ai pas pu trouver une solution.

J'ai une macro qui transforme une série de cellule en PDF et l'exporte dans un dossier spécifique. Plutôt que le sauvegarder automatiquement dans ce dossier spécifique je voudrais que l'utilisateur ai le choix de son dossier de sauvegarde et je ne sais pas comment le formuler dans ma commande.

voici la partie du code d'exportation qui a besoin d'une modification:

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\Club de Golf\Classement.pdf", Quality:= _

xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=True

merci à l'avance pour votre aide

    ' choix répertoire de stockage
    Dim MonRepertoire
    Dim Repertoire As FileDialog
    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
    Application.FileDialog(msoFileDialogFolderPicker).Title = "Choix du répertoire de stockage des fichiers générés"
    Repertoire.Show
    If Repertoire.SelectedItems.Count > 0 Then
        MonRepertoire = Repertoire.SelectedItems(1)
    Else
        Exit Sub
    End If

ensuite tu utilises MonRepertoire

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MonRepertoire & "\Classement.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

Merci beaucoup cela fonctionne très bien.