formule trop longue

bonjour
niveau à peine novice, donc uniquement formules
neurone encore correct
je me lance, ce que vous allez lire va vous horrifier, j'ai mis du temps à y arriver (avec lecture du forum) mais fonctionne (fin préambule)

-colonne C alpha expression textuelle avec 2 ou 3 -(tirets)
aaaa aaaa-bbbbb ccccc-ddddddd ddd ddd ou
aaaa aaaa-bbbbb ccccc-ddddd-eeee eeeee ee
1)je ventile en D la partie avant 1er tiret (aaaa aaa)
2)je ventile en E la partie entre 1er et 2ème tiret (bbbb ccc) cas 2 tirets
3)je ventile en E la 1ère partie entre 1er et 2ème tiret (bbbb) cas 3 tirets
4)je ventile en F la 2ème partie entre 1er et 2ème tiret (ccc) cas 3 tirets
5)je ventile en G la partie à droite du dernier tiret
6)enfin en H je récupère une date sur autre feuille du dossier

1)=GAUCHE(C3;CHERCHE("-";C3)-1)

2)=SI(NBCAR(C3)-NBCAR(SUBSTITUE(C3;"-";""))>2;STXT(C3;CHERCHE("-";C3)+1;TROUVE("-";C3;CHERCHE("-";C3)+1)-CHERCHE("-";C3)-1);STXT(C3;CHERCHE("-";C3)+1;CHERCHE(" ";C3;CHERCHE("-";C3)+1)-CHERCHE("-";C3)-1))

3)=SI(NBCAR(C3)-NBCAR(SUBSTITUE(C3;"-";""))>2;STXT(C3;CHERCHE("-";C3;CHERCHE("-";C3)+1)+1;CHERCHE("-";C3;CHERCHE("-";C3;CHERCHE("-";C3)+1)+1)-CHERCHE("-";C3;CHERCHE("-";C3)+1)-1);STXT(C3;CHERCHE(" ";C3;CHERCHE("-";C3))+1;CHERCHE("-";C3;CHERCHE("-";C3)+1)-(CHERCHE(" ";C3;CHERCHE("-";C3))+1)))

4)=SI(NBCAR(C3)-NBCAR(SUBSTITUE(C3;"-";""))>2;DROITE(C3;NBCAR(C3)-CHERCHE("-";C3;CHERCHE("-";C3;CHERCHE("-";C3)+1)+1));DROITE(C3;NBCAR(C3)-CHERCHE("-";C3;CHERCHE("-";C3;CHERCHE("-";C3)+1))))

5)=SI(NBCAR(C3)-NBCAR(SUBSTITUE(C3;"-";""))>2;DROITE(C3;NBCAR(C3)-CHERCHE("-";C3;CHERCHE("-";C3;CHERCHE("-";C3)+1)+1));DROITE(C3;NBCAR(C3)-CHERCHE("-";C3;CHERCHE("-";C3;CHERCHE("-";C3)+1))))

6)=SI(ESTERREUR(INDEX(date_posts;EQUIV(G3;posts;0);1));"";INDEX(date_posts;EQUIV(G3;posts;0);1))

soyez indulgent
merci
cdt