Je pense que ça a déjà été mis ici mais je ne l'ai pas retrouvé... alors
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub SelectionnerUnRepertoire()
Dim Dossier As Object, Rep As Object, Chemin As String
    Set Dossier = CreateObject("Shell.Application")
 
    'Ouvre la boîte de dialogue "sélection d'un répertoire"
    Set Rep = Dossier.BrowseForFolder(&H0&, "Sélectionner un répertoire", &H1&)
    If Not Rep Is Nothing Then
        Set Rep = Rep.Items.Item
        Chemin = Rep.Path
        MsgBox Chemin
    End If
End Sub
A toutes fins utiles

Edit
Pile poil ! Je viens de le retrouver dans la FAQ mais avec gestion d'erreur.
J'avais dû m'en inspirer mais en éliminant les erreurs possibles (!?!)