gibi

bonjour,



ceci marche mieux


For Each l In Selection.Rows
If l.Cells(1, 1).Value = 'accepté' Then

l.Font.ColorIndex = 43

ElseIf l.Cells(1, 1).Value = 'refusé' Then
l.Font.ColorIndex = 5

ElseIf l.Cells(1, 1).Value = 'en attente' Then
l.Font.ColorIndex

End If

Next

a adapter bien sur