Sub gb()
Dim c As Range, cpt As Long, t, listea, i As Byte
listea = Array(12, 18, 19, 7, 5, 13, 10, 4, 14)
For Each c In [A1:A200]
t = Split(c.Text)
For i = LBound(t) To UBound(t)
If Not IsError(Application.Match(Val(t(i)), listea)) Then
MsgBox c.Address(0, 0) & ": " & t(i)
End If
Next
Erase t
Next
End Sub