Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 09/10/2007 par Pcfp456
Dim cell As Range
Dim choix
Dim Valeur As Variant
ScreenUpdating = False
For Each cell In Range("choix")
Valeur = cell.Value
With cell
.Font.Name = "Arial"
.Font.FontStyle = "Gras"
.Font.Size = 8
.Font.Strikethrough = False
.Font.Superscript = False
.Font.Subscript = False
.Font.OutlineFont = False
.Font.Shadow = False
.Font.Underline = xlUnderlineStyleNone
.Interior.Pattern = xlSolid
.Interior.PatternColorIndex = xlAutomatic
End With
Select Case Valeur
Case Is = ""
With cell
.Font.ColorIndex = xlAutomatic
.Interior.ColorIndex = xlNone
End With
Case Is < 0.8
With cell
.Font.ColorIndex = 2
.Interior.ColorIndex = 3
End With
Case 0.8 To 1
With cell
.Font.ColorIndex = xlAutomatic
.Interior.ColorIndex = 40
End With
Case 1 To 1.2
With cell
.Font.ColorIndex = xlAutomatic
.Interior.ColorIndex = 35
End With
Case Is > 1.2
With cell
.Font.ColorIndex = xlAutomatic
.Interior.ColorIndex = 37
End With
End Select
Next cell
Range("I3").Select
ScreenUpdating = True
End Sub