Bonjour a tous

je souhaite que quel qu'un peut il m'aider 

on résumer je travail sur un projet stock tous déroule bien seulement un fonction qui fait la Somme

Au stade éditer une commande elle renvoie se message '13' 

elle est tel que:

'------- fonction qui permet de faire la somme d'une colonne dans une listbox

Function sommeColList(lst As ListBox, numCol As Integer) As Single

Dim som As Single

som = 0

For i = 0 To lst.ListCount - 1

    som = som + lst.Column(numCol, i)

Next i

sommeColList = som

End Function