=SUBSTITUE(SI(MIN(
SIERREUR(CHERCHE("UN ";$B2);2);SIERREUR(CHERCHE("UNE ";$B2);2);
SIERREUR(CHERCHE("L'";$B2);2);SIERREUR(CHERCHE("LE ";$B2);2);
SIERREUR(CHERCHE("LA ";$B2);2);SIERREUR(CHERCHE("LES ";$B2);2);
SIERREUR(CHERCHE("AU ";$B2);2);SIERREUR(CHERCHE("AUX ";$B2);2);
SIERREUR(CHERCHE("DE ";$B2);2);SIERREUR(CHERCHE("DES ";$B2);2);
SIERREUR(CHERCHE("À"&CAR(160)&"l'";SUBSTITUE($B2;" L'";CAR(160)&"L'"));2);
SIERREUR(CHERCHE("DE"&CAR(160)&"l'";SUBSTITUE($B2;" L'";CAR(160)&"L'"));2);
SIERREUR(CHERCHE("À"&CAR(160)&"la";SUBSTITUE($B2;" LA";CAR(160)&"LA"));2);
SIERREUR(CHERCHE("DE"&CAR(160)&"la";SUBSTITUE($B2;" LA";CAR(160)&"LA"));2))=1;
SUBSTITUE(STXT(SUBSTITUE(SUBSTITUE(SUBSTITUE($B2;" LA";CAR(160)&"LA");" L'";CAR(160)&"L'");"'";"' ");
TROUVE(" ";SUBSTITUE(SUBSTITUE(SUBSTITUE($B2;" LA";CAR(160)&"LA");" L'";CAR(160)&"L'");"'";"' "))+1;999)
&" ("&STXT(SUBSTITUE(SUBSTITUE($B2;" LA";CAR(160)&"LA");" L'";CAR(160)&"L'");1;
TROUVE(" ";SUBSTITUE(SUBSTITUE(SUBSTITUE($B2;" LA";CAR(160)&"LA");" L'";CAR(160)&"L'");"'";"' "))-1)&")";
CAR(160);" ");
B2);"' ";"'")