re- Jean,
Dans ton exemple, pour que ça fonctionne, il faut modifier une toute petite partie du code seulement :
For L = 2 To UBound(TabTemp, 1)
If Target.Value < TabTemp(L, 1) Then Exit For
Next L
A modifier en :
For L = 2 To UBound(TabTemp, 1)
If Target.Value = TabTemp(L, 1) Then Exit For
Next L
En remplaçant "<" par "=", ça devrait être suffisant pour faire fonctionner ton test...
L'exemple que tu as repris comparait des valeurs numériques entre elles, d'où l'utilisation de opérateur "<" à l'origine. Comme tu souhaites, chercher des équivalences de chaines de caractères, il convient donc d'utiliser "=" dans ton cas.
Cordialement,
Didier_mDF
