Consolidation de classeur

Sub Synthese()
    ' adapter la plage à sommer sur tous les fichiers
    Const plageRecup As String = "B2:C3"
    '
    Dim chemin As String, Fichier As String
    Dim wb As Workbook, shDest As Worksheet, shSource As Worksheet
    Dim c As Range

    Set wb = ThisWorkbook
    chemin = wb.Path + "\"
    Application.ScreenUpdating = False
    ' nettoyage
    For Each shDest In wb.Worksheets ' pour chaque feuille
        shDest.Range(plageRecup).ClearContents
    Next shDest
    '
    ' pour chaque fichier
    Fichier = Dir(chemin & "*.xl*")    ' 1er fichier
    Do While (Len(Fichier) > 0)
        If Fichier <> ThisWorkbook.Name Then
            Workbooks.Open chemin & Fichier
            ' traitement
            For Each shDest In wb.Worksheets ' pour chaque feuille
                Set shSource = Worksheets(shDest.Name)
                For Each c In shDest.Range(plageRecup)
                    c = c + shSource.Range(c.Address)
                Next c
            Next shDest
            ActiveWorkbook.Close
        End If
        Fichier = Dir()    ' fichier suivant
    Loop
    Application.ScreenUpdating = True
End Sub