Sub Traitement()
Dim TabTemp As Variant
Dim L As Long
Dim V As Byte, AncV As Byte
With Sheets('Feuil1')
'Charge les données dans un tableau variant temporaire pour
'accélérer le traitement
L = .Range('B65536').End(xlUp).Row
TabTemp = .Range(.Cells(1, 1), .Cells(L, 2)).Value
AncV = 0
For L = 1 To UBound(TabTemp, 1)
Select Case TabTemp(L, 2)
Case Is < 50
V = 0
Case Is < 100
V = 1
Case Else
V = 2
End Select
'Si changement de 'tranche'
If AncV < V Then
.Range(.Cells(L - 1, 1), .Cells(L - 1, 2)).Interior.ColorIndex = 4
End If
AncV = V
Next L
End With
MsgBox 'Traitement terminé ! Les cibles sont surlignées en VERT.'
End Sub