XL 2016 remplir cellule avec plusieurs valeurs issues d'une plage selon critère

=SIERREUR(INDEX($B$2:$B$9;PETITE.VALEUR(SI($A$2:$A$9=$E2;LIGNE($A$2:$A$9)-1);COLONNE(A:A)));"")

Sub Test()
    xCpt = 0                                            'Compteur = zéro
    xRecherche = [E2]                                   'Valeur à rechercher
    For Each xCell In Range("A2:A9")                    'On boucle sur l'ensemble de la base (Ici A2 à A9)
        If xCell.Value = xRecherche Then                'Si la cellule lue = recherche alors
            xCpt = xCpt + 1                             'On passe le compteur à +1
            xVal = xCell.Offset(0, 1).Value             'On récupère la donnée à droite (colonne B)
            If xCpt = 1 Then                            'Si compteur = 1
                xResult = xVal                          'Résultat = Valeur lue
            Else                                        'Else
                xResult = xResult & " / " & xVal        'Compteur >1 ; Résultat = ancien résult & " /" & Valeur lue
            End If                                      'Fin Si
        End If                                          'Fin Si
    Next xCell                                          'Fin boucle
    [F2] = xResult                                      'On affiche le résultat en cellule F2
End Sub

=JOINDRE.TEXTE(", ";VRAI;REPT(B$2:B$9;A$2:A$9=E2))