Rechercher cellule contenant texte puis la coller

Bonjour à tous,

Je me permets de vous solliciter étant donné que je rencontre une petite difficulté avec une macro permettant de :

Rechercher une valeur contenue dans la colonne A tableau 1.
Vérifier si cette valeur est présente dans la colonne A du tableau 2.
Si oui, alors il faut que la colonne B du tableau 1 soit collée dans la colonne B du tableau 2.

J'ai réussi à programmer ce fonctionnement toutefois, le mot recherché n'est pas forcément identique, il peut être contenu dans une expression.

Ex : Si je recherche le mot "FORUM", je voudrais que si le l'expression "FORUM1" existe alors la cellule B du tableau 1 soit collée dans le tableau 2.

Pourriez-vous svp m'aider là-dessus? (Ci-dessous la partie de monde concernée)

Merci!

For Each Cel In plref 'boucle sur toutes les cellules de la plage plref

    If Cel.Value <> "" Then 'condition 1 : si la cellule n'est pas vide
        Set r = orech.Columns(colrech).Find(Cel.Value, , xlValues, xlWhole) 'définit la recherche r
        
        If Not r Is Nothing Then 'condition 2 : si il existe au moins une occurrence trouvée
            pa = r.Address 'définit l'adresse pa de la première occurrence trouvée
            
            Do 'exécute
            orech.Cells(r.Row, cac).Copy oref.Cells(Cel.Row, cdst)
            Set r = orech.Columns(colrech).FindNext(r) 'redéfinit la recherche r (occurrence suivante)
            
            Loop While Not r Is Nothing And r.Address <> pa 'boucle tant qu'il existe des occurrences ailleurs au'en pa
            
            
        End If 'fin de la condition 2
    End If 'fin de la condition 1
Next Cel    'Boucle sur cellule suivante