Bonjour,
Un petit test a coller dans un module :
Sub AdansB()
For i = 1 To Cells(1, 1).End(xlDown).Row Step 1
If InStr(1, Cells(i, 2), Cells(i, 1), vbTextCompare) > 0 Then Cells(i, 3) = 'trouvé'
Next i
End Sub
Indique en colonne 'C' si le texte de la colonne 'A' est présent dans 'B'
Vekmort