Sub definirremplissage()
Dim cell As Range
Worksheets("feuille_2").Range("C2:BH1600").Select
For Each cell In Selection 'Pour chaque cellule dans la selection
If [B][COLOR=Red]20 < Abs(cell.Value) And Abs(cell.Value) < 50[/COLOR][/B] Then
cell.Interior.ColorIndex = 19 'Colorie la couleur de la cellule
End If
If [B][COLOR=Red]10 < Abs(cell.Value) And Abs(cell.Value) < 20[/COLOR][/B] Then
cell.Interior.ColorIndex = 6 'Colorie la couleur de la cellule
End If
Next
End Sub