bonjour,
faudrait faire un truc du genre:
for i=6 to 60 step 1
taille=cells(i,2)
select case taille
case >=1000
Range(cells(i,1),cells(i,5)).Interior.ColorIndex = 3 (jaune)
case >=500
Range(cells(i,1),cells(i,5)).Interior.ColorIndex = 5
case >=300
Range(cells(i,1),cells(i,5)).Interior.ColorIndex = 6
case >=200
Range(cells(i,1),cells(i,5)).Interior.ColorIndex = 46
end select
next i