Bonjour Anne_Marie,
Un essai en PJ avec en col A et B :
VB:
=SIERREUR(EQUIV(Tableau2[[#Cette ligne];[Code_projet_A]];'Liste projets'!A:A;0);"")
et
=SIERREUR(INDEX(Tableau1[Code_projet];PETITE.VALEUR(SI(Tableau1[Type]="Type_A";LIGNE(INDIRECT("1:"&LIGNES(Tableau1[Code_projet]))));LIGNES($1:1)));"")