Sub testtotal14()
'commence à la colonne 14 et ligne 11
Dim r As Integer, k As Integer, t As Integer
t = 0 'le compteur
For r = 11 To 20 'lignes
For k = 12 To 41 'colonnes
t = t + Cells(r, k + 2).Value 'additionne sur chaque ligne une colonne sur deux ?
Next k
Cells(r, 42).Value = t
t = 0
Next r
End Sub