Sub ChoixDoss()
Dim Dial As FileDialog
Set Dial = Application.FileDialog(msoFileDialogFolderPicker)
Dial.AllowMultiSelect = False
Dial.Title = "Choix du dossier de travail"
Dial.InitialView = msoFileDialogViewList
ChDir "c:\temp"
Dial.Show
End Sub