Dim Repertoire As FileDialog
Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
Repertoire.Show
' Si aucun répertoire sélectionné
If Repertoire.SelectedItems().Count = 0 Then Exit Sub
' Récupérer le chemin sélectionné
chemin = Repertoire.SelectedItems(1)
If Mid(chemin, Len(chemin), 1) <> "\" Then chemin = chemin & "\"