problème avec Countifs

Bonjour,
J'essaie de faire un countif avec plusieurs arguments, je ne comprend pas ce qui ne marche pas, f'aut-il ajouter un module dans les compléments vba?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub compte()   Dim oui As Double   For i = 3 To 11   oui = WorksheetFunction.CountIfs(Range(Cells(i, 5), Cells(i, 13)), "B456", "C789", "E144")   Cells(i, 3) = oui Next i   End Sub

---

D'après ce que je lis là : http://msdn.microsoft.com/en-us/libr.../ff196714.aspx, pas besoin de mettre de guillements autours des cellules. Mais je n'ai pas testé.

je viens d'essayer, ça ne fonctionne pas non plus, et voici ce que Microsoft dit dans l'aide VBA concernat les critères:

"Au moins un critère définissant les cellules affectées. Il peut prendre la forme d'un nombre, d'une expression, d'une référence de cellule ou de texte. Par exemple, 32, "32", ">32", "pommes" ou B4.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub compte()   Dim oui As Double   For i = 3 To 11   oui = WorksheetFunction.CountIfs(Range(Cells(i, 5), Cells(i, 13)), "B456", "C789", "E144")   Cells(i, 3) = oui Next i

---

Je me répond si ça peut aider les autres personnes, il suffit d'ajouter le range à coté de chaque critère.

Code:

---

oui = WorksheetFunction.CountIfs(Range(Cells(i, 5), Cells(i, 13)), "B456", Range(Cells(i, 5), Cells(i, 13)), "C789",Range(Cells(i, 5), Cells(i, 13)), "E144")

---