cellvert = 0
cellorange = 0
cellrouge = 0
For j = 2 To 100
If Cells(i, j).Interior.ColorIndex = vert Then
cellvert = cellvert + 1
Else
If Cells(i, j).Interior.ColorIndex = orange Then
cellorange = cellorange + 1
Else
If Cells(i, j).Interior.ColorIndex = rouge Then
cellrouge = cellrouge + 1
End If
End If
End If
Next j
If cellrouge > 1 Then
Cells(i, 1).Interior.ColorIndex = 3
Else
If cellorange > 1 Then
Cells(i, 1).Interior.ColorIndex = 46
Else
If cellvert > 1 Then
Cells(i, 1).Interior.ColorIndex = 10
Else
Cells(i, 1).Interior.ColorIndex = blanc
End If
End If
End If