Option Explicit
Function procheMult2(Vcherche As Range, catalog As Range) As Variant
Dim result() As Variant
Dim nb_colonnes As Integer
Dim valeurs() As String
Dim index_valeurs As Integer
Dim element_du_catalogue As Range
Dim index_result As Integer
nb_colonnes = Application.Caller.Columns.Count
ReDim result(nb_colonnes)
valeurs = Split(Vcherche, " ")
For index_valeurs = 0 To UBound(valeurs)
For Each element_du_catalogue In catalog
If InStr(element_du_catalogue.Value, valeurs(index_valeurs)) > 0 Then
index_result = index_result + 1
If index_result <= nb_colonnes Then result(index_result) = element_du_catalogue
End If
Next element_du_catalogue
Next index_valeurs
procheMult2 = result
End Function