Sub couleur()
' Macro par Dan pour José31 - 17/04/06
'Macro pour [B]Lien supprimé[/B]
'-mise-en-forme-conditionnelle.htm
Dim c As Range
For Each c In Range('B3:AF3')
Select Case c.Value
Case Is = 't1'
c.Interior.ColorIndex = 50
Case Is = 't2'
c.Interior.ColorIndex = 6
Case Is = ''
c.Interior.ColorIndex = -4142
End Select
Next c
End Sub