Problème avec une boucle For

Bonjour,

Je sollicite d'urgence toute aide concernant une boucle For d'une simplicité enfantine mais qui ne veut pas s'exécuter depuis 2 jours..
Le pire c'est que je suis plutôt bon en VBA à la base mais là j'avoue que je ne comprend pas. J'ai tout essayé je crois mais rien n'y fait!

Voilà le code que j'ai. Sans les boucles, cela marche très bien pour la première case, aucun problème, mais dès que je met les boucles ça me donne 0 sur la première case et ça ne lance pas la boucle...

Public Sub Calcul_devis_suite()

Dim cellule, cellule2, cellule3 As Range

Dim i, j As Long


Set cellule = ThisWorkbook.Worksheets("Etablissement Maison").Range("C19")

Set cellule3 = ThisWorkbook.Worksheets("Devis Maison").Range("B5")

Set cellule2 = ThisWorkbook.Worksheets("Devis Maison").Range("A5")


i = 1
j = 1

cellule3(j).Value = 0

For j = j To j = 17

For i = i To i = 10

If cellule(i).Value = cellule2(j).Value Then

cellule3(j).Value = cellule3(j).Value + 1

Else: cellule3(j).Value = cellule3(j).Value

End If

Next i

Next j


End Sub


C'est fait à l'ancienne j'avoue mais normalement je vois pas d'erreurs!

HELP!! pourquoi diable les boucles ne se lancent pas???