Bonjour,
Merci pour votre réponse.
J'ai juste modifier le code, car ca ne mettait pas la bonne couleur lorsque les valeurs dépassaient 85 :
Sub Tests()
Dim Dl%, i%
Dl = Range("A" & Rows.Count).End(xlUp).Row
Range(Cells(Dl, 1), Cells(Dl, 8)).Interior.Color = xlNone
For i = 1 To 8
If Cells(Dl, i) > Range("J2") Then Cells(Dl, i).Interior.Color = RGB(255, 0, 0)
If Cells(Dl, i) < Range("K2") Then Cells(Dl, i).Interior.Color = RGB(0, 255, 0)
Next i
End Sub
J'ai juste inversé le signe ">"
Je teste ce code sur le fichier avec insertion de lignes et je reviens clôturer le sujet si tout fonctionne.
Cdlt,