Comment programmer la somme sur vba?

Bonjour,

s'il vous plait les experts, j'essaie de programmer la somme sur vba mais ça ne marche pas quand je sélectionne une plage, quand je prends juste une seule cellule l'excel m'affiche une valeur qui n'a rien a voir avec celle de la cellule.
voila mon algorithme dites moi aidez moi.

Function sommesn(n As Long) As Double
Dim k As Long
'initialisation de la somme_sn
sommesn = 0
'boucle
For k = 0 To n
somme_sn = sommesn + (k)
Next k

End Function