Mettre la ligne en couleur quand la variable dépasse l'intervall

Bonjour à tous

J'ai quelques difficulté bien que mon programme ne m'affiche pas d'erreur.
Lorsque ma variable est sup ou inf à 5% de sa valeur toute la ligne doit se mettre en rouge
... mais rien ne se passe

si quelqu'un à une idée je suis preneuse !

voilà mon code


Sub cinqpourcent()

Dim var1 As Integer 'g/m² de la fiche article
Dim var2 As Integer 'g/m² mesuré en contrôle qualité
Dim cote_mini As Integer 'cote mini cad moins les 5%
Dim cote_maxi As Integer 'cote maxi cad plus les 5%
Dim noligne As Integer

noligne = 1

Sheets("Feuil1").Cells(noligne, 5).Value = var2
Sheets("Feuil1").Cells(noligne, 6).Value = var1

While var2 <> 0

cote_mini = var1 - (var1 * 0.05)
cote_maxi = var1 + (var1 * 0.05)

If var2 < cote_mini Or var2 > cote_maxi Then

Rows(noligne).Interior.Color = RGB(255, 0, 0)

End If

noligne = noligne + 1

Wend

End Sub