XL 2013 Est-il possible faire une recherche dans une chaîne concaténée ?

Function Compte(Plage, Combinaison)
 For Each Cel In Plage
    If InStr(1, Cel, Combinaison) > 0 Then Compte = Compte + 1
 Next
End Function

Function CONCAT(r As Range) As String
For Each r In r
  If r <> "" Then CONCAT = CONCAT & " " & r
Next
If CONCAT <> "" Then CONCAT = CONCAT & " "
End Function

Function NbSorti(r As Range, cherche As String)
cherche = Application.Trim(cherche) 'SUPPRESPACE
If cherche = "" Then NbSorti = "": Exit Function
cherche = "* " & Replace(cherche, " ", " * ") & "* "
For Each r In r
  If Replace(r, " ", "  ") Like cherche Then NbSorti = NbSorti + 1
Next
End Function

Function NoTirage(r As Range, cherche As String) As String
Dim i As Long
cherche = Application.Trim(cherche) 'SUPPRESPACE
If cherche = "" Then NoTirage = "": Exit Function
cherche = "* " & Replace(cherche, " ", " * ") & "* "
For i = 1 To r.Count
  If Replace(r(i), " ", "  ") Like cherche Then NoTirage = NoTirage & ", " & i
Next
NoTirage = Mid(NoTirage, 3)
End Function

Function CONCAT(r As Range) As String
For Each r In r.Cells
  If r <> "" Then CONCAT = CONCAT & "  " & r '2 espaces
Next
CONCAT = CONCAT & " "
End Function

Function NbSorti(r As Range, cherche As String)
cherche = Application.Trim(cherche) 'SUPPRESPACE
If cherche = "" Then NbSorti = "": Exit Function
cherche = "* " & Replace(cherche, " ", " * ") & "* "
For Each r In r.Rows
  If CONCAT(r) Like cherche Then NbSorti = NbSorti + 1
Next
End Function

Function NoTirage(r As Range, cherche As String) As String
Dim i As Long
cherche = Application.Trim(cherche) 'SUPPRESPACE
If cherche = "" Then Exit Function
cherche = "* " & Replace(cherche, " ", " * ") & "* "
For i = 1 To r.Rows.Count
  If CONCAT(r.Rows(i)) Like cherche Then NoTirage = NoTirage & ", " & i
Next
NoTirage = Mid(NoTirage, 3)
End Function

cherche = "* " & Replace(cherche, " ", " * ") & "* "

cherche = "* " & Replace(cherche, " ", " * ") & " *"