hi,

Sub SelectPath()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.Show 'afficher la boite de dialogue
Range("A1") = .SelectedItems(1) 'adapt range
End With
End Sub

--
isabelle