Sub somme()
Dim i As Integer
Dim j As Integer
With Sheets(1) ' indiquer le num de la feuille de travail
For i = 1 To 11 ' 11 lignes
For j = 1 To 4 '4 colonnes et pourquoi trois
Cells(5 + i, 26 + j).Value = Cells(5 + i, 26 + j).Value + Cells(5 + i, 22 + j).Value
Next j
Next i
End With
End Sub