Créer un bouton "Parcourir" pour sélectionner un Répertoire (Excel, Word, Access)

1) Créer un bouton sur un Userform, puis gérer l'événement Click côté code en intégrant le code ci-dessous

Private Sub CommandButton1_Click()

    Dim Repertoire As FileDialog
    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
    Repertoire.Show
    If Repertoire.SelectedItems.Count > 0 Then
        MsgBox Repertoire.SelectedItems(1)
    Else
        MsgBox "Aucun Répertoire Sélectionné"
    End If

End Sub