Sub Macro1()
' Macro enregistrée le 27/02/2012 par Excel-lent
' Si la cellule A1 contient LCL, colorier la cellule en Rouge
If Range("A1") = "LCL" Then Range("A1").Interior.ColorIndex = 3
' Si la cellule A1 contient LBP, colorier la cellule en Jaune
If Range("A1") = "LBP" Then Range("A1").Interior.ColorIndex = 6
' Si la cellule A1 contient ICA, colorier la cellule en Or
If Range("A1") = "ICA" Then Range("A1").Interior.ColorIndex = 44
' Si la cellule A1 contient CRF, colorier la cellule en Turquoise
If Range("A1") = "CRF" Then Range("A1").Interior.ColorIndex = 8
' Si la cellule A1 contient MCD, colorier la cellule en Vert Marin
If Range("A1") = "MCD" Then Range("A1").Interior.ColorIndex = 50
' Si la cellule A1 contient x, colorier la cellule en Vert Brillant
If Range("A1") = "x" Then Range("A1").Interior.ColorIndex = 4
End Sub