=SIERREUR(CNUM(STXT($A1;TROUVE("-";SUBSTITUE(" "&SUBSTITUE($A1;CAR(160);" ");" ";"-";COLONNES($B:B)));TROUVE("-";SUBSTITUE(SUBSTITUE($A1;CAR(160);" ")&" ";" ";"-";COLONNES($B:B)))-TROUVE("-";SUBSTITUE(" "&SUBSTITUE($A1;CAR(160);" ");" ";"-";COLONNES($B:B)))));"")
Sub Macro1()
Feuil1.Columns(1).TextToColumns Feuil1.Cells(1, 2), Space:=True
End Sub
STXT(" "&$A1;CHERCHE("µ";SUBSTITUE(SUBSTITUE(" "&$A1;CAR(160);CAR(32));" ";"µ";COLONNES($B:B)))+1;CHERCHE("µ";SUBSTITUE(SUBSTITUE(" "&$A1&" ";CAR(160);CAR(32));" ";"µ";COLONNES($B:C)))-CHERCHE("µ";SUBSTITUE(SUBSTITUE(" "&$A1;CAR(160);CAR(32));" ";"µ";COLONNES($B:B)))-1)
Je n'ai pas trouvé plus court...
=STXT(" "&$A1;CHERCHE("µ";SUBSTITUE(SUBSTITUE(" "&$A1;"*";" ");" ";"µ";COLONNE(A:A)))+1;CHERCHE("µ";SUBSTITUE(SUBSTITUE(" "&$A1&" ";"*";" ");" ";"µ";COLONNE(B:B)))-CHERCHE("µ";SUBSTITUE(SUBSTITUE(" "&$A1;"*";" ");" ";"µ";COLONNE(A:A)))-1)
STXT($A1;SOMMEPROD(NBCAR($B1:B1))+NBVAL($B1:B1)+1;CHERCHE("µ";SUBSTITUE(SUBSTITUE(STXT($A1&" ";SOMMEPROD(NBCAR($B1:B1))+NBVAL($B1:B1)+1;10);"*";"µ");" ";"µ"))-1)
REMPLACER(STXT($A1&" ";SOMMEPROD(NBCAR($B1:B1))+NBVAL($B1:B1)+1;10);
CHERCHE("µ";SUBSTITUE(SUBSTITUE(STXT($A1&" ";SOMMEPROD(NBCAR($B1:B1))+NBVAL($B1:B1)+1;100);
"*";"µ");" ";"µ"));100;"")