Sub Consolider()
Dim t#, chemin$, fichier$, nlig&, ncol%, resu(), nfich%, tablo, i&, j%, v
t = Timer
chemin = ThisWorkbook.Path & "\" 'dossier à adapter
fichier = Dir(chemin & "*.xls*") '1er fichier du dossier
Application.ScreenUpdating = False
With [A2:H251] 'plage à adapter
nlig = .Rows.Count: ncol = .Columns.Count
ReDim resu(1 To nlig, 1 To ncol)
'---ouverture des fichiers---
While fichier <> ""
If fichier <> ThisWorkbook.Name Then
nfich = nfich + 1
With Workbooks.Open(chemin & fichier)
tablo = .Sheets(1).[A1].Resize(nlig, ncol)
For i = 1 To nlig
For j = 1 To ncol
v = tablo(i, j)
If IsNumeric(v) Then resu(i, j) = resu(i, j) + CDbl(v)
Next j, i
.Close False
End With
End If
fichier = Dir 'fichier suivant
Wend
'--remplissage du tableau---
.Value = resu
End With
Application.ScreenUpdating = True
MsgBox nfich & " fichiers consolidés en " & Format(Timer - t, "0.00 \s")
End Sub