Function DirOpen() As String
' CHOIX D'UN DOSSIER PAR VBA
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
Dim vrtSelectedItem As Variant
With fd
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
DirOpen = vrtSelectedItem
Next vrtSelectedItem
Else
DirOpen = VbNulllString
End If
End With
Set fd = Nothing
End Function