Sub RechercheDossier()
Dim oSh As Object, pfile As Object
Dim pIni As Variant
pIni = "C:\" 'Ton répertoire à ouvrir
Set oSh = CreateObject("Shell.Application")
On Error Resume Next
Set pfile = oSh.BrowseForFolder(0&, "Sélectionnez un dossier", &H1 + &H40 + &H200 + &H4000, pIni)
If Not pfile Is Nothing Then
MsgBox pfile.items.Item.Path
End If
On Error GoTo 0
Set pIni = Nothing
Set pfile = Nothing
Set oSh = Nothing
End Sub