Option Explicit
Sub Colorier()
Dim Cellule As Range
Dim Couleur As Integer
Application.ScreenUpdating = False
For Each Cellule In Feuil1.Range("C5:C" & Feuil1.Range("C65536").End(xlUp).Row)
Select Case LCase(Cellule.Value)
Case "bleue"
Couleur = 5
Case "orange"
Couleur = 45
Case "verte"
Couleur = 4
Case "rouge"
Couleur = 3
Case Else
Couleur = xlNone
End Select
Cellule.Interior.ColorIndex = Couleur
Next Cellule
Application.ScreenUpdating = True
End Sub