Chercher le contenue d'une cellule dans une autre chaîne de car

Merci à tous ,
via55 , j'ai vu que vous avez une formule ==> cherchermot() mais si c'est possible pouvez vous me donner la meme fonction en anglais , car mes fonctions prédefinie sont en anglais

Merci,
toute à l'heure j'ai appuyé sur ctr+F11 à la place de alt+F11
excusez moi et merci une autre fois

Re,

Macro à transformer ainsi (il faut faire une boucle sur toutes les colonnes)

Function cherchemot(mot As String)
Dim Tableau() As String
    trouve = 0
    rep = "Non trouvé"
    ' boucle sur les colonnes 2 à 31
    For y = 2 To 31
    ' boucle sur les 10 lignes de la colonne y - augmenter le nombre si nécessaire
    For n = 1 To 10
    ' extrait la chaine et découpe la chaine en fonction des espaces " "
    'le résultat de la fonction Split est stocké dans un tableau
    chaine = Cells(n, y).Value
    Tableau = Split(chaine, " ")
    'boucle sur le tableau
    For i = 0 To UBound(Tableau)
     'si mot est trouvé dans le tableau la variable rep prend la valeur de la ligne
    If Tableau(i) = mot Then rep = Cells(n, y).Value
    Next i
    Next n
    Next y
    ' on renvoie le resultat
    cherchemot = rep
End Function

Cdlmnt
Via

Merci infiniment,
juste une dernière question , comment faire pour créer une méthode?

moi , avant je clique sur (vieux , macro , record j'écris le nom , puis je clique sur view , edit et j'aurai l'interface dédié au développeur ) j'ai utilisé votre méthode et j'ai fait ctr+s . ==> j'ai eu le résultat que j'ai voulu , quand j'ai mis =cherchemot(A1).
Mais , quand j'ai voulu que cette méthode marche pour les autre ligne . j'ai cliqué sur la fin de la case et j'ai eu le même résultat qui est affiché dans la première ligne ;
Donc je me ss dis que forcement , il y'a une autre façon de le faire .

Merci

Re ,
je suis désolé pour le retard , mon ordinateur s'est planté , lorsque j'ai voulu exécuter votre code pour 100425 lignes et dans ceulle il y'a un texte ecrit de ce genre :
- #index 942885/#n Mark Gershon/#a Temple Univ., Philadelphia, PA/#pc 1/#cn 0/#hi 0/#pi 0.0000/#upi 0.0000/#t multiobjective dynamic programming;regional natural resource management .

et moi je veux chercher seulement l'index : exemple #index 942885.

j'ai mis la macro Function dans un module de l'éditeur VBA et j'ai utilisé la fonction en tapant "=cherchemot(A2)" ; j'ai eu le résultat d'une manière très vite.
Mais , quand j'ai voulu excuter la meme fonction 'cherchermot() pour les autres lignes . ça fait 2 jours que le programe tourne ; et il n'a exécuté que 6% du fichier .
y'a t'il une autre facon de le faire ?
Ps: j'ai voulu mettre le fichier à l'aide du site Cjoint.com mais la taille de mon fichier est grande.
Merci D'avance.