[Nikolaï]

Bonjour

Tu peux faire cela si tu veux.

Sub toto()
Dim CELL As Range
For Each CELL In Range('A1:A10')
If CELL = 'accepté' Then
Range(CELL.Row & ':' & CELL.Row).Font.ColorIndex = 43
ElseIf CELL = 'refusé' Then
Range(CELL.Row & ':' & CELL.Row).Font.ColorIndex = 5
ElseIf CELL = 'en attente' Then
Range(CELL.Row & ':' & CELL.Row).Font.ColorIndex = 3
End If
Next
End Sub

A plus tard
Christophe