Option Compare Text
Sub TestColoring()
Dim Cell As Range
For Each Cell In ActiveSheet.UsedRange
With Cell
Select Case .Value
Case 'Toto', 'Zaza', 'Lulu'
.Interior.ColorIndex = 3
Case 'Titi', 'Lolo'
.Interior.ColorIndex = 8
Case 'Tagada'
.Interior.ColorIndex = 7
Case 'TsoinTsoin'
.Interior.ColorIndex = 6
Case 'Etc Etc'
.Interior.ColorIndex = 4
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
Next
End Sub