Private Sub Worksheet_Change(ByVal Target As Range)
Dim source As Range, decal&, t, ncol%, f$, i&, j%
Set source = [B2:F4] '1er tableau, à adapter
decal = 4 'décalage pour définir le 2ème tableau, à adapter
t = source 'matrice, plus rapide
ncol = source.Columns.Count
f = "=SUM(R" & source.Row & "C:R" & source.Row + source.Rows.Count - 1 & "C)"
For i = 1 To source.Rows.Count
For j = 1 To ncol
If t(i, j) <> "" Then t(i, j) = f
Next j, i
Application.EnableEvents = False
source.Offset(decal).FormulaR1C1 = t
Application.EnableEvents = True
End Sub