Somme.si Listbox et ComboBox textbox

Bonjour le Forum,
Je viens chercher directement auprès de vous une réponse que je n'ai pas pu trouvé pour le moment.

Je cherche à appliquer la méthode somme.si à une list box.
Avec le critère dans une ComboBox, et la liste et les nombre dans les colonnes 1 et 4 de la listbox.
En effet, je souhaite qu'en sélectionnant un élément dans la Combobox cela me dise dans un "control" la somme correspondante dans la listbox. Ci après le code que j'ai écrit:
En l'occurrence le resultat que j'obtiens est SParts=Somme

With Me.ListBox1
For i = 0 To .ListCount - 1
Somme = Somme + CDbl(.List(i, 4))
'If Me.ComboAssoc.Column(0, Me.ComboAssoc.ListIndex) > -1 Then
If usf.ComboAssoc.Column(0, Me.ComboAssoc.ListIndex) = usf.ListBox1.List(i, 1) Then
SParts = SParts + CDbl(.List(i, 4))
End If
'End If
Next
End With

Merci de votre aide