...
For Each File In Files
i = i + 1
With Sheets('listedossiers')
.Cells(i, 1).Value = File.Path
.Cells(i, 2).Value = File.Name
.Cells(i, 2).Replace What:='.xls', Replacement:='', _
LookAt:=xlPart, SearchOrder:=xlByRows
.Cells(i, 3) = '='' & NomDossier & '\\[' & File.Name & ']' & .Cells(i, 2) & ''!' & Range('K7').Address
.Cells(i, 3).NumberFormat = 'ddmmyyyy hhmmss'
.Cells(i, 3) = .Cells(i, 3).Value
End With
Next
...