Réponse acceptée !
salut, je suis d'acord avec tout le monde t'a pas bien précisé ta demande, mai j'ai vue dans l'autre poste que tu as déja créé ce code:
Private Sub cmdTotal_Click()

Dim s As Double
Dim i As Integer
s = 0
For i = 0 To lstNote.ListCount - 1
s = s + lstNote.List(i)
lblTotal.Caption = s
Next i

End Sub

donc tu veux fair la somme d'une liste qui contien des articles de type double.si j'ai bien compri
alors:
Private Sub cmdTotal_Click()

Dim s As Double
Dim i As Integer
s = 0
For i = 0 To lstNote.ListCount - 1
s = s + val(lstNote.List(i))
Next i

lblTotal.Caption = s

End Sub

j'espére que c'est ca