Ignorer une valeur commençant par

Bonjour,

Je travaille sur Excel 2007.
Voici mon problème, étant débutant en VBA, je cherche à lister des valeurs en ignorant deux types : celles dont les cellules sont vides, et celles dont les cellules commencent par "TR" par exemple "TR*", "TRACTEUR", "TRUITE", "TR-6534"

Pour les cellules vides, c'est bon j'ai trouvé :
ValeurRecherche.Value <> ""

Par contre pour les "TR", c'es la folie! J'ai essayé:
ValeurRecherche.Value <> "TR*"
ValeurRecherche.Value <> like "TR*"
ValeurRecherche.Value <> like "TR"*
ValeurRecherche.Value <> like "TR#"
ValeurRecherche.Value <> like "TR"#
et encore bien d'autres avec des parenthèses et tout le tralala...

Mon texte se présenterait sous cette forme:

For Each ValeurRecherche In Application.Sheets(ActiveSheet.Name).Range(RangePlage)
If Not MonDico.Exists(ValeurRecherche.Value) And ValeurRecherche.Value <> "" And ValeurRecherche.Value <> "TR*" Then
MonDico.Add ValeurRecherche.Value, ValeurRecherche.Value
End If

Mais ça marche pas! :/
Si vous avez une idée, je suis preneur!

Merci bien et bonne journée!