Erreur code VBA

Bonjour,

J'ai ce code :

dim i, compteur As Integer
compteur = 0

For i=0 to 68

If Rows(6, i) <> "" And Rows(7, i) <> "" Then
        compteur = compteur + 1
If compteur = 10 then
        Cells(6, 69) = "2"
End if
End If
Next i

Dans la partie surligner, il me dit erreur définie par l'application ou par l'objet.

Cdlt.

utilise cells plutôt que rows

Re,

J'ai remplacé par Cells(6, i) et Cells(7, i), toujours la même erreur.

Cdlt.

i ne peut pas être égal à 0 dans l'instruction cells(i,7) ou cells (i,6)

Re,

D'accord. Maintenant j'ai ça :

Dim i, compteur As Integer

For i = 6 To 42

If Cells(6, i) <> "" Then

        compteur = compteur + 1

    If compteur = 10 Then

        Cells(6, 69) = 2

    End If

End If

Next i

Plus d'erreur mais par contre il ne rentre pas dans le if pour compter le nombre de cellule non vide.

Cdlt.

Re,

Je n'ai rien dis ça fonctionne.

Cdlt.