Sub Bouton1_Clic()
For j = 1 To Range("A65535").End(xlUp).Row
For i = 1 To Len(Cells(j, 1)) - 10
compare = UCase(Mid(Cells(j, 1), i, 10))
If WorksheetFunction.Search(compare, UCase(Cells(j, 2))) Then
Cells(j, 3) = LCase(compare)
Exit For
End If
Next i
Next j
End Sub