Tu dois faire une boucle de teste de la valeur de la cellule sur chaque valeur de ton tableau array.

J'écriais le code de cette manière

Sub travail_array()

Dim prenom As Variant

Dim I As Integer, lastLine As Integer, J As Integer

lastLine = Range("A100").End(xlUp).Row

prenom = Array("Thomas", "Romain", "Matthieu")

For I = 1 To lastLine

    Cells(I, 1).Interior.Color = vbRed

    For J = 0 To UBound(prenom)

        If Cells(I, 1) = prenom(J) Then

            Cells(I, 1).Interior.Color = vbGreen

            Exit For

        End If

    Next J

Next I

End Sub

@+Jean-Marie