Vba : Aditionner deux plages de cellules

Option Explicit 
Option Base 0 

Sub addition_plages() 
    Dim Tableau() As Integer 
    Dim x As Integer, y As Integer 
    Dim i As Integer, j As Integer 

'ici x est la dernière ligne, y la dernière colonne 
    x = 13 
    y = 5 

'Redimensionne le tableau de la ligne 3 à x et de la 2ème col à la yème 
    ReDim Tableau(3 To x, 2 To y) 

'complète les valeurs du tableau par l'addition des cellules de la même plage sur 2 feuilles 
    For i = 3 To x 
        For j = 2 To y 
        Tableau(i, j) = Sheets("Feuil1").Cells(i, j) + Sheets("Feuil2").Cells(i, j) 
        Next j 
    Next i 

'restitue les valeurs du tableau dans la feuil3 
    With Sheets("Feuil3") 
.Range("B3:E13") = Tableau 
    End With 
End Sub

=SOMME(Feuil2!B3;Feuil1!B3)