Salut ric !
j'ai pu résoudre ce problème mais je bloque sur un autre désormais lol..
j'aimerais mettre en rouge les cellules dont les valeurs sont supérieurs à 0 au dessus de la diagonale et en vert celles qui sont supérieurs à 0 mais situés en dessous de la diagonale, voici mon code :
i = 4
j = Range("C3:R19").Rows.Count
For i = 4 To j
If Cells(i, i - 1).Value > "0" Then
Cells(i, i - 1).Interior.Color = vbGreen
End If
Next I
Mon code fonctionne bien mais il ne prend pas en compte la cellule active ci-dessous