Sub somme()
Dim tot As Variant
Dim i As Integer
i = 2
Range('A1').Select
line1:
Do While ActiveCell.Value <> ''
Cells(i, 1).Select
tot = tot + ActiveCell.Value
i = i + 1
Loop
Cells(i - 1, 2).Value = tot
If Cells(i + 1, 1) = '' Then
Exit Sub
Else
Cells(i, 1).Select
tot = 0
GoTo line1
End If
End Sub