Souci avec une fonction

Sub Proposition()
[COLOR="Green"]' Macro réalisé par Excel-lent[/COLOR]
Dim Ligne As Integer
Dim Colonne As Integer

Ligne = ActiveCell.Row
Colonne = ActiveCell.Column

For i = 1 To Ligne - 1
    Cells(Ligne, Colonne) = Cells(Ligne, Colonne) + Cells(i, Colonne)
Next i

End Sub

Sub addition()
Dim PremCel As Range, Dercel As Range
Set PremCel = Range("A1")
Set Dercel = Range("A65000").End(xlUp)
Dercel.Offset(1) = Application.Sum(PremCel.Resize(Dercel.Row - PremCel.Row + 1, 1))
End Sub