Afficher seulement les mots souhaités au sein d'une chaine de caracteres

Bonjour,

Je me permets de rouvrir cette demande car ma demande initiale était incomplete malgré l'aide très précieuse de h2so4.

J'ai un fichier (voir PJ) qui contient une liste de mots autorisés en A et en colonne B des mots (seul ou plusieurs séparés par des virgules). L'objectif est d'obtenir en C seulement les mots clés qui ont été autorisés.

Le fichier est en PJ pour une meilleure compréhension.

h2so4 m'avait cette proposition qui marche parfaitement bien pour les mots strictement identiques Ex : Si PHP est autorisé et que PHP est présent alors on affiche PHP MAIS Si PHP est autorisé est que PHP5 ou PHP5.2 est présent alors le script ne fonctionne plus.

une solution avec une fonction personnalisée, à mettre dans un module

Function motauth(liste, listea)

t = Split(liste, ",")

For i = LBound(t) To UBound(t)

Set re = listea.Find(Trim(t(i)), lookat:=xlWhole, LookIn:=xlValues)

If Not re Is Nothing Then

m = m & t(i) & ","

End If

Next i

motauth = Left(m, Len(m) - 1)

End Function

appel de la fonction

=motauth(liste, listea)