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!

Peut-être qu'il faudrait juste comparer les deux premiers caractères de la valeur au lieu de toute la valeur.
Pour cela, il devrait être possible d'utiliser Left(ValeurRecherche.Value, 2) <> "TR" ou de prendre Mid() au lieu de Left() pour d'autres cas.