Tableau de Recherche avec renvoit de plusieurs valeurs texte.

Function Versions(Valeur, Plage As Range) As String
Dim Cellule As Range
    Versions = ""
    For Each Cellule In Plage
        If Cellule.Value = Valeur Then
            If Versions = "" Then
                Versions = Cellule.Offset(0, 1).Value
            Else
                Versions = Versions & " / " & Cellule.Offset(0, 1).Value
            End If
        End If
    Next Cellule
End Function

=versions(D5;$A$3:$A$9)

Option Explicit
Function Versions(Valeur, Plage As Range) As String
[COLOR=Blue][B]Application.Volatile[/B][/COLOR]
Dim Cellule As Range
    Versions = ""
    For Each Cellule In Plage
        If Cellule.Value = Valeur Then
            If Versions = "" Then
                Versions = Cellule.Offset(0, 1).Value
            Else
                Versions = Versions & " / " & Cellule.Offset(0, 1).Value
            End If
        End If
    Next Cellule
End Function

 Function RechTous(v, champRech As Range, ChampRetour As Range)
  Application.Volatile
  a = champRech    [B] ' lecture dans un tableau pour + rapidité[/B]
  temp = ""
  For i = 1 To champRech.Count
    If a(i, 1) = v Then temp = temp & ChampRetour(i) & "/"
  Next i
  If temp = "" Then RechTous = "" Else RechTous = Left(temp, Len(temp) - 1)
End Function