Salut Alex,
Peux-tu préciser où tu dois faire apparaître les sommes.
Le code que je t'ai envoyé marche pour un total en AG2, AG3...etc
Si tu places les totaux en A1, A2... la formule sera :
Sub Sommes()
Dim CL As Range
Range("A2:A22").Select
For Each CL In Selection
CL.FormulaR1C1 = "=SUM(RC[+1]:RC[+31])"
Next
End Sub
A+