XL 2010 Consolider plusieurs feuilles (classeurs) identiques par VBA

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