"Si cellule contient une variable"

Bonjour,
Je bloque sur mon programme VBA, j'aimerai faire la chose suivante:
si dans la range K&i contient la valeur de la range X1, alors [...].
Le probleme, c'est que je ne connais que la formule pour faire "égal" à une valeur (like), mais pas "contient" (généralement avec les * *) pour une variable.

Merci de votre aidem voici mon code (qui ne montre que "égal" à la valeuer X1):


For i = 2 To Last
If Range("K" & i).Value Like Worksheets("ChartPage").Range("X1").Value Then Range("M" & i).Value = "CurrMonth"
Next