For i = 1 To 20
   ' i = est le numero de la ligne, 1 est la colonne A
   If (Cells(i, 1).Value >= 100 and Cells(i, 1).Value < 500) Then
      Cells(i, 1).Interior.colorindex = 33
   Else
     If (Cells(i, 1).Value >= 500 and Cells(i, 1).Value < 1000) Then
        Cells(i, 1).Interior.colorindex = 3
     Else
       If (Cells(i, 1).Value >= 1000) Then
          Cells(i, 1).Interior.colorindex = 36
       End If
     End If
   End If
 Next i
   |