Sub RecupererNomFichier()
Dim arrFichiers As Variant, Dcol&
Application.ScreenUpdating = False
arrFichiers = Application.GetOpenFilename(MultiSelect:=True)
If IsArray(arrFichiers) Then
[A1].Resize(UBound(arrFichiers)) = Application.Transpose(arrFichiers)
Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=1, _
TextQualifier:=1, Other:=-1, OtherChar:="\", _
FieldInfo:=Array([{1, 1}], [{2, 1}], [{3, 1}], [{4, 1}], [{5, 1}])
Dcol = Cells(1, Columns.Count).End(xlToLeft).Column - 1
Columns(1).Resize(, Dcol).Delete Shift:=xlToLeft
Else
MsgBox "Aucun(s) fichier(s) sélectionné(s).", vbCritical, "Avertissement"
End If
Application.ScreenUpdating = True
End Sub