Pb de comparaison de 2 colonnes

Bonjour,
j'ai un fichier excel avec plusieurs feuilles
sur toutes les feuilles je dois comparer chaque cellule de la colonne delta à chaque cellule de la derniere colonne
sur la premiere feuille ca fonctionne jusque la ligne 22 puis apres ca ne fonctionne plus correctement
pourquoi?????????
je vous donne le code que j'ai fait juste pour la premiere feuille on verra apres pour les autres feuilles
merci d'avance ca fait plusieurs jours que je cherche et je dois absolument trouver avant 16 h aujourd'hui

Sub casecolorierok()
Dim j As Integer
Dim continue As Boolean
Dim couleur As Integer
Dim dernierecolonne As Integer
Dim derniereligne As Integer
derniereligne = 17
continue = True
While (continue)
derniereligne = derniereligne + 1
If (Sheets("Audit").Cells(derniereligne, 1).Value = "") Then
continue = False
End If
Wend
dernierecolonne = 3
continue = True
While (continue)
dernierecolonne = dernierecolonne + 1
If (Sheets("Audit").Cells(15, dernierecolonne).Value = "TOL") Then
continue = False
End If
Wend
j = 5
For i = 17 To derniereligne
continue = True
While (continue)
If (Cells(16, j).Value = "Delta") Then
If (Sheets("Audit").Cells(i, j).Interior.ColorIndex) = 6 Then
If (Sheets("Audit").Cells(i, j).Value > Sheets("Audit").Cells(i, dernierecolonne).Value) Then
'MsgBox ("jaune")
'MsgBox (i)
'MsgBox (j)
couleur = CouleurFond(Sheets("listebox").Cells(3, 5))
temp = colorierCellule(Sheets("Audit").Cells(i, j), couleur)
End If
If (Sheets("Audit").Cells(i, j).Value > 2 * Sheets("Audit").Cells(i, dernierecolonne).Value) Then
'MsgBox ("jaune")
'MsgBox (i)
'MsgBox (j)
couleur = CouleurFond(Sheets("listebox").Cells(1, 5))
temp = colorierCellule(Sheets("Audit").Cells(i, j), couleur)
End If
End If
If (Sheets("Audit").Cells(i, j).Interior.ColorIndex) = 2 Then
If (Sheets("Audit").Cells(i, j).Value > Sheets("Audit").Cells(i, dernierecolonne).Value) Then
'MsgBox ("jaune")
'MsgBox (i)
'MsgBox (j)
couleur = CouleurFond(Sheets("listebox").Cells(4, 5))
temp = colorierCellule(Sheets("Audit").Cells(i, j), couleur)
End If
If (Sheets("Audit").Cells(i, j).Value > 2 * Sheets("Audit").Cells(i, dernierecolonne).Value) Then
'MsgBox ("jaune")
'MsgBox (i)
'MsgBox (j)
couleur = CouleurFond(Sheets("listebox").Cells(5, 5))
temp = colorierCellule(Sheets("Audit").Cells(i, j), couleur)
End If
End If
End If
j = j + 3
If (Cells(16, j).Value = "") Then
continue = False
j = 5
End If
Wend
Next
End Sub