Macro couleur police en plus de couleur fonds

Bonjour,
Vous m'aviez indiqué la macro suivante pour modifier la couleur de fonds d'une cellule :
Sub test()
'Dim Tabl As Range
Dim Cellule As Variant
For Each Cellule In Range("Tableau")
'condition 1
If Cellule = "1" Then 'colonne A
Cellule.Interior.ColorIndex = 3 'cellule rouge
'condition 2
ElseIf Cellule = "0,5" Then 'colonne A
Cellule.Interior.ColorIndex = 6 'cellule verte
'condition 3
ElseIf Cellule = "Cp" Then 'colonne A
Cellule.Interior.ColorIndex = 5 'cellule jaune
'condition 4
ElseIf Cellule = "Tp" Then 'colonne A
Cellule.Interior.ColorIndex = 33 'cellule orange
'condition 4
ElseIf Cellule = "Tp" Then 'colonne A
Cellule.Interior.ColorIndex = 7 'cellule orange
'condition 5
ElseIf Cellule = "Mat" Then 'colonne A
Cellule.Interior.ColorIndex = 35 'cellule orange
'condition 6
ElseIf Cellule = "Mal" Then 'colonne A
Cellule.Interior.ColorIndex = 34 'cellule orange
'condition 7
ElseIf Cellule = "A" Then 'colonne A
Cellule.Interior.ColorIndex = 38 'cellule orange
'condition 8
ElseIf Cellule = "L" Then 'colonne A
Cellule.Interior.ColorIndex = 40 'cellule orange
'condition 9
ElseIf Cellule = "F" Then 'colonne A
Cellule.Interior.ColorIndex = 39 'cellule orange
'condition 10
ElseIf Cellule = "R" Then 'colonne A
Cellule.Interior.ColorIndex = 45 'cellule orange

'Pour annuler la couleur si la valeur est différente
ElseIf Cellule = "0" Then 'colonne A
Cellule.Interior.ColorIndex = xlNone 'colonne B cellule sans couleur
End If
Next Cellule
End Sub


Tout marche bien. Je voudrais juste savoir comment je peux y rajouter que la valeur de la cellule se mette dans la même couleur que le fonds.
Exemple : Si la valeur de la cellule est "1", la cellule se met en rouge et la couleur de la police est aussi rouge.

Merci d'avance de votre réponse
Dédette