Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' si plus d'une cellule concernée sortir
If Target.Count > 1 Then Exit Sub
Chaine = Target.Value
With Target.Interior
If InStr(Chaine, "DS") Then .ColorIndex = 4
If InStr(Chaine, "FDS") Then .ColorIndex = 45
If InStr(Chaine, "EE") Then .ColorIndex = 7
If InStr(Chaine, "Echo") Then .ColorIndex = 6
If InStr(Chaine, "Bilan") Then .ColorIndex = 3
If InStr(Chaine, "CS") Then .ColorIndex = 8
End With
End Sub