Question VBA (Recherche avec plusieurs resultats )

Bonjour à tous,

VBA GURU je m'adresse à toi, si tu as 3 minutes de libres.

je suis bloqué sur un problème :

• J'ai 2 colonnes dans EXCEL
• Colonne A: 305 lignes dans le format ci-dessous avec des mots clés diviser par "; " :

Nouveaux Nés; Parentalité; Transmission; Santé
Adolescents; Parentalité; Société; Education; Famille; Education
Lgbtqia+; Discrimination; Société; Adolescents; Famille; Sexualité

• Colonne B avec les noms des émissions dans le format ci-dessous :

a-qui-profite-lallaitement
ados-en-crise
coming-out

J'essaye de classer par mots clés toutes les émissions en faisant une recherche avec le mot clés dans colonne D et le résultat dans la colonne E. :
Exemple pour le mot : "Argent", chaque fois qu'il est présent dans la ligne 1 colonne A, le script doit copier le nom d'émission de la ligne 1 Colonne B, et le faire pour les 305 lignes de même manière.

Pouvez vous m'indiquer l'erreur dans le code :

Function CusVlookup(lookupval, lookuprange As Range, indexcol As Long)
Dim x As Range
Dim result As String
result = ""
For Each x In lookuprange
     If InStr(lookupval, x) > 0 Then
        result = result & "; " & x.Offset(0, indexcol - 1)
    End If
Next x
CusVlookup = result
End Function