VBA - Condition IF

Bonjour,

Avant de faire un calcul, je dois m'assurer ques les termes du calculs appartiennent à des listes, sinon le résultat est 0.
Cependant, quelques fois les 2 termes appartiennent aux listes mais le résultat du calcul est 0, le résultat ne s'affiche pas, seulement #value

code

For i = numero_ligne_1ere_operation To numero_ligne_dernière_operation Step 3
If Application.CountIf(Range("ListeOp"), Cells(i, numero_colonne)) = 0 Or Application.CountIf(Range("ListeEqt"), Cells(i + 1, 1)) = 0 Then
a = 0

Else: a = Debit_Puissance(Cells(i, numero_colonne), Cells(i + 1, 1), utilite)

End If

somme = somme + a
a = 0

Next

Pouvez-vous m'aider à trouver l'erreur dans le code, car je ne la vois pas !!
Merci d'avance

Configuration: Windows XP
Internet Explorer 6.0