Private Sub Worksheet_Change(ByVal Target As Range)
Dim bytRetourVal As Byte
With Target
' Ne traite qui si la colonne G a partir de la ligne 2
If .Column = 7 And .Row > 1 Then
Select Case .Value
Case Is >= 0, Is < 36: bytRetourVal = 0
Case Is >= 35, Is < 70: bytRetourVal = 1
Case Is >= 70, Is < 105: bytRetourVal = 2
Case Is >= 105, Is < 140: bytRetourVal = 3
Case Is >= 140, Is < 175: bytRetourVal = 4
Case Is >= 175, Is < 210: bytRetourVal = 5
Case Is >= 210, Is < 245: bytRetourVal = 6
Case Is >= 245, Is < 280: bytRetourVal = 7
Case Is >= 280, Is < 315: bytRetourVal = 8
Case Is >= 315, Is < 350: bytRetourVal = 9
Case Is >= 350, Is < 385: bytRetourVal = 10
Case Is >= 385, Is < 420: bytRetourVal = 11
Case Is >= 420, Is < 455: bytRetourVal = 12
Case Is >= 455, Is < 490: bytRetourVal = 15
End Select
Cells(.Row, .Column + 1) = bytRetourVal
End If
End With
End Sub