Je cherche une fonction

Bonjour
Michel désolé de vous répondre à ce message aussi tard, j'étais en période de rush sur d'autres projets, je vous écris au sujet du code, tout donne vrai. Je vous envoie le code. c'est possible de mettre dans le la boucle for, (si les 3 colonnes sont vides alors n'affiche rien)
Option Explicit

Function Terme_interdit(activecell)
Dim Liste, Col As Byte, Cptr As Byte
Dim adresse, test As String, cpt As Byte, Tablo
'-Liste des mots interdits selon la colonne active
Col = activecell.Column
Select Case Col
Case Is = 1
Liste = Array("rue", "avenue", "bat", "bp")
Case Is = 2
Liste = Array("Zi", "ZA", "lieu-dit")
Case Is = 3
Liste = Array("rue", "avenue", "bat", "bp", "ZI", "ZA", "lieu-dit")
Case Else
GoTo Erreur
End Select


For Cptr = 0 To UBound(Liste)
test = Liste(Cptr)
'teste si la liste contient la valeur de test
On Error GoTo Valid 'sinon on valide "vrai"
If Application.Find(test, activecell) > 0 Then
Terme_interdit = "FAUX"
Exit Function
End If
Next

Exit Function

Valid:

Terme_interdit = "VRAI"
Exit Function
Erreur:


MsgBox "colonne hors champ d'action"
End Function


Merci d'avance.

trop tard

Donc vous ne voulez pas m'aidez?

Tu demandes de l'aide, on passe pas parfois des heures à essayer de t'apporter une solution le plus rapidement possible ( on a aussi des urgences personnelles à gérer) et toi, tu n'as m^me pas le minimum de politesse, ou plutôt de respect humain, pour faire signe pendant plus d'un mois pour expliquer ton silence...

Désolé mais être bénévole ne signifie pas être taillable et corvéable à Merci...