With Application.FileDialog(msoFileDialogFilePicker)
.Filters.Clear 'suppression des filtres pré existants
.InitialFileName = [D3].Value '"L:\UP78" 'Chemin initial de l'explorateur
.AllowMultiSelect = True 'FALSE = interdiction des selections multiple
.Show 'Affichage de l'explorateur
' Enregistre le nbre de fichiers sélectionnés dans une variable
NBRselect = .SelectedItems.Count
' Inscrit les nom+chemins dans la feuille en colonne K
For k = 1 To NBRselect
[K09].Offset(nbreFICHIERS + k, 0) = .SelectedItems(k)
Next k
End With