Incompatibilité de type

Bonsoir à tous,

J'essaye de faire un petit programme en VBA sous Excel et cela me fait "Erreur d'execution '13': Incompatibilité de type"
Voici le code:

Option Explicit
Dim j As Long
Dim i As Long

Sub calcul()

For j = 28 To 88
For i = 17155 To 537720
   If Cells(j, 9) < Cells(i, 7) And Cells(i, 7) < Cells(j, 10) Then
   Cells(i, 19) = Cells(j, 15) - Cells(i, 18)
   End If
Next
   Next
End Sub

Toutes les cellules en question contiennent pourtant des nombres...
Je les ai toutes vérifiées avec la fonction ESTNUM.

Quelqu'un aurait-il une idée de ce que je pourrais tenter ?

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.