Formule verifier si cellule A est compris dans cellule B

Bonjour a tous, je voudrais verifier , pour chaque cellule d'une colonne, laquel est comprise dans la cellule active. Ce que je recherche pourrais etre au debut d'une cellule, dans le millieu ou a la fin.

une ebauche:

For i= 3 to Derlig  
    If Cells(i,5) like * & activeCell & * then goto 1  
    next i
1:   'on prend en note la ligne trouvee

Bonjour,

modifie peut être comme suit :

If Cells(i,5) like "*" & activeCell & "*" then goto 1 

bonne journée

@+

Merci Pierrot, j'ai mis ta formule dans mon code et ca fonctionne. J'avais peur que lorsque la partie du mot se trouve au debut ou a la fin, il ne l'a trouve pas. Il semble que ta formule fonctionne dans toute les conditions.

 derlig = Sheets("RAM").Range("B200").End(xlUp).Row
    Set Plage = Sheets("RAM").Range("A2:B" & derlig)
    For Each variable In Plage
         If variable <> "" Then
             If contenu Like "*" & variable & "*" Then 'l'instruction comprend une variable, donc on selectionne cette variable dans la fenetre RAM
                Windows("LOGICIEL 60.xls:3").Activate
                'Sheets("RAM").Cells(i, 8).Select
                'Sheets("RAM").Range("A" & i & ":H" & i).Font.ColorIndex = 8
                ActiveWindow.ScrollRow = variable.Row
                GoTo 1
             End If
         End If
    Next variable
1   Application.EnableEvents = True