Boucle while inaccessible

Bonjour,

je ne sais pas pourquoi la boucle while au milieu n'est pas accessible !!
ce while :
While .Range("J2").Offset(j, 0) = .Range("J2").Offset(j + 1, 0)
Sum = Sum + .Range("K2").Offset(j + 1, 0)
j = j + 1
Wend

Public Function StockSecurite(Depot, Base_Oil, Transaction, Year, Week)
Dim i As Long
Dim j As Long
Dim w As Worksheet
Dim Sum As Double
Dim Max As Double
Set w = Worksheets("Donnees")
i = 0
j = 0
Max = 0
With w

While .Range("I2").Offset(i, 0) <> ""

 
   If .Range("J2").Offset(i, -9) = Depot And .Range("J2").Offset(i, -8) = Base_Oil And .Range("J2").Offset(i, -6) = Transaction And .Range("J2").Offset(i, -3) = Year And .Range("J2").Offset(i, -1) = Week Then
    tot = tot + .Range("K2").Offset(i, 0)
    Sum = .Range("K2").Offset(i, 0)
    
    
               While .Range("J2").Offset(j, 0) = .Range("J2").Offset(j + 1, 0)
                     Sum = Sum + .Range("K2").Offset(j + 1, 0)
                     j = j + 1
               Wend
    End If
    i = i + 1
  Wend
End With
'StockSecurite = (Max - tot / 7) * 7
StockSecurite = Sum
End Function

Merci de votre aide