Sub Fichiers()
'Application.ScreenUpdating = False
Dim myPath As String, myFile As String
Dim LengthChain As Integer
Dim X As Byte
Dim C As Byte
myPath = ThisWorkbook.Path
myFile = Dir(myPath & "\*.xls*") ' remplacer xls par le suffixe des types de fichiers désirés
C = 1
Do While myFile <> ""
LengthChain = InStr(myFile, ".") '- InStr(myFile, ".")
For X = 1 To 10
Cells(C, X) = Left(myFile, LengthChain - 1)
myFile = Dir()
Next X
C = C + 1
Loop
End Sub