Problème de saturation

Bonjour à tous,
Merci avant tout pour toutes aides éventuellement apportées.
J'ai commencé à écrire un programme dont le but de comptabiliser les occurrences distinctes d'une colonne et de placer le résultat dans une autre colonne.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub nbre_de_joursaisie() Dim vListe1Début As String, vListe2Début As String Dim vcellule Sheets(1).Select vListe1Début = "L2" vListe2Début = "K2" For Each vcellule In Range(Sheets(1).Range(vListe1Début), Sheets(1).Range(vListe1Début).End(xlDown)) If vcellule < 1 / 1 / 2009 Then Sheets(1).Range(vListe2Début).Select ActiveCell.FormulaR1C1 = _ "=SUMPRODUCT(1/COUNTIF(RC[1]:R[2827]C[1],RC[1]:R[2827]C[1]))" Else MsgBox (" c'est faux ") Exit Sub End If Next End Sub

---

Mon problème est que dès que je lance le programme, Excel plante et je ne vois pas trop comment réécrire mon programme pour que moins de ressources soient sollicitées et où éventuellement, j'ai pu commettre une erreur.
Merci encore pour vos éclairages.

Code:

---

1 2	Dim vListe1Début As String, vListe2Début As String Dim vcellule

---

8O
Pas plutôt :

Code:

---

Dim vListe1Début, vListe2Début, vcellule As String

---

:aie:

Code:

---

1 2	Each vcellule In Range(Sheets(1).Range(vListe1Début), Sheets(1).Range(vListe1Début).End(xlDown)) If vcellule < "1 / 1 / 2009" Then

---

Un petit coup d'oeil sur les déclarations et types de variables sous VBA peut-être ? :P ;)

Merci à toi pour ton excellente réponse. Comme tu l'avais deviné, il s'agit bien d'une date, ma bévue était tellement énorme qu'évidemment, je ne l'avais pas vue. Néanmoins, j'ai corrigé ma macro rapidement et la saturation reste là. Je pense que le problème est lié à ma fonction de calcul sommeprod. Merci encore.
Cordialement