Dim fichier As String
With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "\\NomServeu\Dosier1\SousDosier1\"
.Filters.Clear
.Filters.Add "ma descrip", "*.xls"
.Show
If .SelectedItems.Count > 0 Then Workbooks.Open .SelectedItems(1)
End With