INDEX EQUIV avec plusieurs résultats

=INDEX($F$6:$F$13;EQUIV(1;($G$6:$G$13=$C7)*($H$6:$H$13=$B7);0);1)

=INDEX($F$6:$F$13;EQUIV(1;($G$6:$G$13=$C8)*($H$6:$H$13=$B7);0);1)

=INDEX(F$6:F$13;EQUIV(1;(G$6:G$13=C7)*(H$6:H$13=RECHERCHE("zzz";B$6:B7));0))

=SIERREUR(INDEX(F$7:F$17;PETITE.VALEUR(SI((H$7:H$17=B$7)*(G$7:G$17=C7);LIGNE(INDIRECT("1:"&LIGNES(F$7:F$17))));NB.SI(C$7:C7;C7)));"")

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, tablo, t As String, i As Long
Set r = Intersect(Target, Range("B7:C" & Rows.Count), Me.UsedRange)
If r Is Nothing Then Exit Sub
tablo = Range("F7:H" & Cells(Rows.Count, "F").End(xlUp).Row)
For Each r In Intersect(r.EntireRow, [B:B]) 'si plusieurs cellules
  t = ""
  For i = 1 To UBound(tablo)
    If tablo(i, 3) = r And tablo(i, 2) = r(1, 2) _
      Then t = t & vbLf & tablo(i, 1)
  Next
  r(1, 3) = Mid(t, 2)
  r(1, 3).WrapText = True 'renvoi à la ligne
  r.EntireRow.AutoFit 'ajustement
Next
End Sub

=SIERREUR(INDEX(G$14:G$19;PETITE.VALEUR(SI((I$14:I$19=DECALER(B$14;ENT((LIGNES($14:14)-1)/3)*3;))*(H$14:H$19=C14);LIGNE(INDIRECT("1:"&LIGNES(G$14:G$19))));CHOISIR(MOD(LIGNES($14:14)-1;3)+1;1;1;2)));"")

Sub CréerTableau()
Dim P As Range
Application.ScreenUpdating = False
Range("B4:D" & Rows.Count).ClearContents 'RAZ
Set P = Range("F4:I" & Cells(Rows.Count, "F").End(xlUp).Row)
P.Sort P(1, 4), , P(1, 3), Header:=xlNo 'tri sur 2 colonnes
[B4].Resize(P.Rows.Count) = P.Columns(4).Value
[C4].Resize(P.Rows.Count) = P.Columns(3).Value
[D4].Resize(P.Rows.Count) = P.Columns(2).Value
P.Sort P(1) 'tri sur la 1ère colonne
End Sub

=INDEX(G$14:G$19;PETITE.VALEUR(SI((I$14:I$19=DECALER(B$14;ENT((LIGNES($14:14)-1)/3)*3;))*(H$14:H$19=C14);LIGNE(INDIRECT("1:"&LIGNES(G$14:G$19))));CHOISIR(MOD(LIGNES($14:14)-1;3)+1;1;1;2)))