Colorer toutes les cellules texte d'un tableau.

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)
Dim C As Range 'déclare la variable C (Cellule)
Dim PLT As Range 'déclare la variable PLT (PLage Texte)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
Set PL = O.UsedRange 'définit la plage PL
For Each C In PL 'boucle sur toutes les cellules C de la plage PL
    If Not IsNumeric(C.Value) = True Then 'condition 1 : si la cellule n'est pas numérique
        If PLT Is Nothing Then 'condition 2 : si PLT n'est pas définie
            Set PLT = C 'définit PLT (la cellule C)
        Else 'sinon
            Set PLT = Application.Union(PLT, C) 'définit PLT (l'union de PLT et de la cellule C)
        End If 'fin de la condition 2
    End If 'fin de la condition 1
Next C 'prochaione cellule de la boucle
PLT.Interior.ColorIndex = 3 'couleur du fond
PLT.Font.ColorIndex = 6 'coleur de l'encre
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("I10:P14")) Is Nothing Then
    If Not IsNumeric(Target.Value) Then
        Target.Interior.ColorIndex = 3
        Target.Font.ColorIndex = 6
    Else
        Target.Interior.ColorIndex = xlNone
        Target.Font.ColorIndex = xlAutomatic
    End If
End If
End Sub