Tiens voilà un code que j'ai réalisé et qui fonctionne c'est peut etre pas le plus simple mais pour l'instant je ne connais pas encor tous les secrets du vba
Sub Couleur()
'Worksheets("Liste").Activate
Range("A9
9").Select
If Range("C9") = "AA" Then
Range("C9").Interior.ColorIndex = 6
End If
If Range("C9") = "BB" Then
Range("C9").Interior.ColorIndex = 5
End If
If Range("C9") = "CC" Then
Range("C9").Interior.ColorIndex = 45
End If
If Range("C9") = "DD" Then
Range("C9").Interior.ColorIndex = 3
End If
If Range("C9") = "EE" Then
Range("C9").Interior.ColorIndex = 7
End If
If Range("C9") = "FF" Then
Range("C9").Interior.ColorIndex = 4
End If
If Range("C9") = "GG" Then
Range("C9").Interior.ColorIndex = 8
End If
If Range("C9") = "HH" Then
Range("C9").Interior.ColorIndex = 9
Range("C9").Font.ColorIndex = 2
End If
End Sub
Bon courrage a toi