Bonjour
Je te propose cette macro à coller dans la feuille concernée après avoir ouvert l'éditeur (alt + F11) et ctrl + R pour avoir la fenêtre "projet".
Private Sub Worksheet_Change(ByVal sel As Range)
Select Case Cells(sel.Row, "F").Value ' mettre la colonne concernée
Case "INFRUCTUEUX" 'est en bleu foncé
' Rows(sel.Row).Interior.ColorIndex = 5 ' couleur fond
Rows(sel.Row).Font.ColorIndex = 5 ' couleur caractères
Case "VIVANT" 'est en noir
' Rows(sel.Row).Interior.ColorIndex = 1 ' couleur fond
Rows(sel.Row).Font.ColorIndex = 1 ' couleur caractères
Case "GAGNE" 'est en vert
' Rows(sel.Row).Interior.ColorIndex = 4 ' couleur fond
Rows(sel.Row).Font.ColorIndex = 4 ' couleur caractères
Case Else
' Rows(sel.Row).Interior.ColorIndex = xlNone ' couleur fond
Rows(sel.Row).Font.ColorIndex = xlAutomatic ' couleur caractères
End Select
End Sub
Comme tu ne précises pas si c'est le fond ou la police que tu colorises, j'ai choisis la police et si c'est le fond, il faut enlever le caractère ' en début de ligne et le mettre sur la suivante pour ne pas exécuter.
J'ai choisis de mettre tes valeurs ( INFRUCTUEUX,VIVANT,GAGNE ) en colonne "F" il faudra mettre la colonne concernée réellement.
Si tu choisis d'autres couleurs pour d'autres codes, il suffit de rajouter les lignes correspondantes.
toujours zen