Colorisation des cellules

Bonjour,
J'utilise la macro ci-dessous pour colorer le fond ou les chiffres de cellules. Tout ce passe à merveille tant qu'il sagit de nombres. Par cintre, je voudrais changer la couleur d'une valeur composée d'un chiffre et d'une lettre et ça ne marche pas !! Comment dois-je faire?
Merci d'avance.
Phil


Sub couleur_cellules()
'
' couleur_cellules Macro
' Macro enregistrée le 16/06/2008 par philippe.belleville
' Raffraichissement de couleur

Range("BF17:BF36").Select
Selection.Copy
Range("I17,L17,O17,R17,U17,X17,AA17,AD17,AG17,AJ17,AM17,AP17,AS17,AV17").Select
Range("AV17").Activate
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
' changement des couleurs
Range( _
"I17:I36,l17:l36,O17:O36,R17:R36,U17:U36,X17:X36,AA17:AA36,AD17:AD36,AG17:AG36,AJ17:AJ36,AM17:AM36,AP17:AP36,AS17:AS36,AV17:AV36" _
).Select

For Each c In Selection
Select Case (c)
Case 1: c.Interior.ColorIndex = 32 '"1"
Case 2: c.Interior.ColorIndex = 39 '"2"
Case 3: c.Interior.ColorIndex = 31 '"3"
Case 4: c.Interior.ColorIndex = 3 '"4"
If c.Value = "5" Then c.Font.ColorIndex = 3 '"5"
End Select

Next
End Sub