Macro pour searchr des colonnes pour la list des mots spécifiques qui peuvent être semblables les uns aux autres

J'ai une macro Excel qui search une list de string dans une colonne.

Par exemple: disons que je cherche "sun" dans ma colonne. Si une valeur de cellule est "Nous avons un beau soleil", alors la cellule contient la string "soleil" et "le soleil" est écrit à côté de la cellule, pour que je puisse identifier les matches plus tard

Mon problème est: si, dans la list de string que je search, il y a d'abord "soleil", puis "soleil", alors la macro écrira d'abord "soleil" à côté de "Nous avons un beau soleil", alors va écrire "soleil".

C'est techniquement correct, c'est ce que fait ma macro, mais il est plus pertinent pour moi de savoir s'il y a tout le mot «soleil» que simplement «soleil».

Je dois append une condition comme «find s'il existe cette string dans chaque cellule de ma colonne et s'il n'y a pas d'autre string dans la list que je search».

Et je ne sais pas très bien pour commencer.

Voici mon code si cela peut aider:

Sub Reperer_Ch_Caracteres() y = Range("B" & Rows.Count).End(xlUp).Row For i = 2 To Range("A" & Rows.Count).End(xlUp).Row Keyword = Range("A" & i) Set c = ActiveSheet.Columns(2).Find(Keyword, LookIn:=xlValues, lookat:=xlPart) If Not c Is Nothing And IsEmpty(Range("C" & i)) = True Then firstAddress = c.Address Do c.Offset(0, 1).Value = Keyword Set c = ActiveSheet.Columns(2).FindNext(c) Loop While Not c Is Nothing And c.Address <> firstAddress End If Next i End Sub