Coloriage grace a VB

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

Cliquez pour agrandir...