Message erreur incompatibilité de type

Bonjour
Je début en VBA excel
je développe une appli de compta pour une association
j'en suis à la saisie d'écriture
j'ai créé un formulaire qui alimente une listbox avec 7 champs
et j'arrive ensuite à les transférer dans ma feuille appelée "Journal"
maintenant ce que je voudrais faire c'est comparer les totaux des 2 derniers champs de ma listbox pour voir si mon écriture est équilibrée
et je me heurte toujours au meme message d'incompatibilité
j'ai essayé de faire une chose toute simple, faire apparaitre le contenu d'un de mes champs de listbox dans un message box et toujours le message d'erreur
voila le peit bout de code qui ne fonctionne pas

Dim i As Variant
Dim cible As Variant
Dim Resultat As Variant
Resultat = 0

cible = LstListeLigneEcriture.ListCount

MsgBox LstListeLigneEcriture(0, 3) c'est cette ligne qui fait apparaitre le message d'erreur

For i = 1 To cible

Resultat = Resultat + LstListeLigneEcriture(i - 1, 5)
Next


Pouvez-vous m'aide svp
Merci d'avance
Philbon