Sub compilationClasseurs()
Dim W As Workbook, WL As Workbook, DCel As Range, i As Long
Dim adressesF, adressesM, k As Byte, l As Byte
adressesM = _
Array("Q6", "Q7", "Q8", "Q9", "Q17", _
"Q22", "Q24", "Q26", "S6", "S7", _
"S8", "S9", "S17", "S22", "S24", "S26")
adressesF = _
Array("E2", "H7", "E19", "E21", "E23", _
"E25", "E29", "E31", "E33", "E51", _
"E53", "M3", "M5", "M45", _
"M47", "M49", "M51", "M55")
Application.ScreenUpdating = False
On Error Resume Next
Set W = ThisWorkbook
With Application.FileSearch
.NewSearch
.LookIn = "C:\Tempi" [COLOR="Green"]'ADAPTER LE CHEMIN[/COLOR]
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Set WL = Workbooks.Open(.FoundFiles(i), 0)
Set DCel = W.Sheets("Compilation_DONNEES").[A65536].End(xlUp).Offset(1, 0)
For k = LBound(adressesF) To UBound(adressesF)
DCel.Offset(, k) = WL.Sheets("FICHE").Range(adressesF(k))
Next
For l = LBound(adressesM) To UBound(adressesM)
DCel.Offset(, l + 18) = WL.Sheets("MATRICE").Range(adressesM(l))
Next
WL.Close False
Next i
End If
End With
On Error GoTo 0
Application.ScreenUpdating = True
Set W = Nothing
Set WL = Nothing
Set DCel = Nothing
End Sub