I have working code that prompt the user to enter a word, and then it will search in a specific column to find all the cases where the word is found. When a positive result is found, the whole line gets colored.

The code works but only if the word matches the cell content exactly.

Example:

Cell contains "Honey", user enters "Honey", the line will get colored.
Cell contains "Honey, Bees", user enters "Honey", the line will get ignored.

Here is the line of code that I think should be changed to something else, but I don't know what. I also tried to add stars (*) before and after the string that gets searched but it returned all the empty lines as positive results. 

Set c3 = SrchRng3.Find(Recherche1, LookIn:=xlValues)