Bonjour
tu peux utiliser ceci dans une boucle sur tes feuilles au moment que tu souhaites
Sub totaux()
With ActiveSheet
l = 14
n = 0
While .Cells(l + n, 3) <> ""
n = n + 1
Wend
l = l + n
.Range(.Cells(l, 4), .Cells(l, 21)).FormulaR1C1 = "=SOMME(R14C:RC-1)"
End With
End Sub