=TRIER(UNIQUE(
LET(
lst;JOINDRE.TEXTE(", ";FAUX;UNIQUE(FILTRE(Liste[couleur];ESTNUM(SIERREUR(CHERCHE(Feuil1!$F$2;Liste[Type]);"")))));
nbM;NBCAR(lst)-NBCAR(SUBSTITUE(lst;",";""))+1;
sép;CAR(13);
lgn;LIGNE(DECALER($A$1;0;0;nbM;1));
mots;SUBSTITUE(SUBSTITUE(", "&lst;", ";sép;lgn);", ";sép;lgn);
pos;TROUVE(sép;mots)+1;
GAUCHE(STXT(mots;pos;NBCAR(lst));TROUVE(sép;STXT(mots;pos;NBCAR(lst))&sép)-1))))