Sub somme_jusqua()
Dim x, i As Byte
With Range("c2").CurrentRegion
For i = 1 To .Columns.Count
x = Application.Match(0, .Columns(i), 0)
If IsNumeric(x) Then
.Offset(.Rows.Count + 1).Cells(i).Formula = "=sum(r2c:r" & x & "c)"
Else
.Offset(.Rows.Count + 1).Cells(i).Formula = "=sum(r2c:r[-2]c)"
End If
Next
End With
End Sub