N
Sub Macro1()
Dim Cel As Range 'déclare la variable Cel
'boucle sur toutes les cellules de la plage B4:E25 (tableau 1)
For Each Cel In Range('B4:E25')
'modifie la valeur de la cellule Cel décalée de 6 colonnes
Cel.Offset(0, 6) = Cel.Offset(0, 6) + Cel
Next Cel 'prochaine cellule de la plage
End Sub