Pop up pour entrer une donnée

Bonjour à tous, je vous sollicite aujourd'hui, car je souhaite realiser la chose suivante :

J'ai une macro qui me permet d'enregistrer ma feuille sous un chemin defini, ce que je souhaiterai, c'est qu'au lieu d'écrire le chemin dans ma macro, un pop up s'ouvre pour me demander de lui indiquer ce chemin

Sheets("Task_Table1").Select
    Dim extension As String
    Dim chemin As String, nomfichier As String
    Dim style As Integer
    Application.ScreenUpdating = False
    ThisWorkbook.ActiveSheet.Copy
    extension = ".xlsx"
                                    'Chemin d'enregistrement

    chemin = "Bibliothèques\Documents\"
    nomfichier = ActiveSheet.Range("B2") & extension
    With ActiveWorkbook
    .SaveAs Filename:=chemin & nomfichier
    .Close
    End With
    

Je vous remercie d'avance pour votre aide

Bonjour,

Une piste avec FileDialog :

Sub Test()

    Dim Chemin As String

    Chemin = Dossier

    MsgBox Chemin 'utiliser le chemin ici !

End Sub

Function Dossier() As Variant

    With Application.FileDialog(4)
        If .Show = -1 Then Dossier = .SelectedItems(1) Else Dossier = ""
    End With

End Function