Function Extract$(t$)
If InStr(t, "-") = 0 Then Exit Function
Dim s
s = Split(t, "-")
Extract = s(UBound(s) - 1)
End Function
=SIERREUR(STXT(A2;TROUVE("µ";SUBSTITUE(A2;"-";"µ";NBCAR(A2)-NBCAR(SUBSTITUE(A2;"-";))-1))+1;TROUVE("µ";SUBSTITUE(A2;"-";"µ";NBCAR(A2)-NBCAR(SUBSTITUE(A2;"-";))))-TROUVE("µ";SUBSTITUE(A2;"-";"µ";NBCAR(A2)-NBCAR(SUBSTITUE(A2;"-";))-1))-1);"")