=STXT(SUPPRESPACE(Feuil1!A1);MAX(SI(ESTNUM(-STXT(SUPPRESPACE(Feuil1!A1);1;LIGNE(INDIRECT("1:"&NBCAR(SUPPRESPACE(Feuil1!A1))))));LIGNE(INDIRECT("1:"&NBCAR(SUPPRESPACE(Feuil1!A1))))))+1;99)
=STXT(SUPPRESPACE(Feuil1!A1);1;MAX(SI(ESTNUM(-STXT(SUPPRESPACE(Feuil1!A1);1;LIGNE(INDIRECT("1:"&NBCAR(SUPPRESPACE(Feuil1!A1))))));LIGNE(INDIRECT("1:"&NBCAR(SUPPRESPACE(Feuil1!A1)))))))
En terme de rapidité ta fonction VBA et ma formule matricielle sont équivalentes.Après, faut pas des centaines de lignes
c'est super merciRe,
Avec une fonction qui fait le nécessaire (elle n'est pas de moi, mais je remercie celui qui l'avait construite)