Sub ListeFic()
Dim ScanFic As Office.FileSearch
Dim NomFic As Variant
Dim racine As String
Dim chemin As String
Dim fiche As String
Dim Ench As String
h = 1
j = 1
Set ScanFic = Application.FileSearch
racine = ThisWorkbook.Sheets("Nomenclature").Cells(h, j)
chemin = (ThisWorkbook.Path & "\" & racine)
With ScanFic
.NewSearch
.LookIn = chemin
.SearchSubFolders = True
.FileType = msoFileTypeExcelWorkbooks
.Execute
For Each NomFic In .FoundFiles
Workbooks.Open NomFic
Ench = ActiveWorkbook.Name
Workbooks(Ench).Activate
With Sheets("Feuil1")
Range(Cells(3, 1), Cells(j, 14)).Select
Selection.Copy
ThisWorkbook.Activate
Worksheets("INPUT").Activate
Range(Cells(ligne, 1), Cells(ligne + j - 2, 14)).Select
ActiveSheet.Paste
Range(Cells(ligne, 15), Cells(ligne + j - 5, 15)).Value = Ench
End With
Next
End With
End Sub