Coloration texte avec condition

Bonjour,

C'est le code couleur qui ne passe pas

Essayes avec ça (Excel 2010)

Sub Coloration()
Dim cellule As Range
Range("S:S").Select
For Each cellule In Selection
If cellule.Value = "Warning" Then
cellule.Font.Color = -16776961
ElseIf cellule.Value = "Display" Then
cellule.Font.Color = -11489280
End If
Next cellule
End Sub

Merci mais j'ai réussi à répondre a ma problématique entre temps ! merci quand même ! a bientôt

voici le code

Sub coloration()

' Ce programme permet de colorer en rouge les Warnings , Displays et maintenance status

Dern = Range("A" & Rows.Count).End(xlUp).Row ' La variable dernière ligne prend la valeur du numéro de la dernière ligne

For i = Dern To 3 Step -1 ' Pour i allant de la dernière ligne à la ligne 3

Cells(i, 19).Select ' Selection de la cellule (i,19)

If ActiveCell.Value = "Warning" Or ActiveCell.Value = "Display" Or ActiveCell.Value = "Maintenance status" Then ' Si la cellule active est égale à Warning , Display ou Maintenance status alors,

ActiveCell.Font.ColorIndex = 3 ' La police est de couleur rouge

Else ' Sinon

ActiveCell.Font.ColorIndex = 1 ' La police est de couleur noire

End If ' Fin de la confition

Next ' i suivant

End Sub