Séparer du texte et des chiffres dans une cellule

=STXT($B1;1;MIN(TROUVE({0;1;2;3;4;5;6;7;8;9};$B1&" 0123456789"))-1)

Function tata$(s$)
Dim i%, x
  x = Split(s)
  For i = UBound(x) To 0 Step -1
    If Not (IsNumeric(x(i)) Or x(i) Like "##.##.####" Or x(i) = "L") Then Exit For
  Next
  For i = i To 0 Step -1: x(i) = Empty: Next
  tata = Trim(Join(x))
End Function

Function toto$(s$)
Dim i%, x
  x = Split(s)
  For i = UBound(x) To 0 Step -1
    If Not (IsNumeric(x(i)) Or x(i) Like "##.##.####" Or x(i) Like "[L,]") Then Exit For
  Next
  For i = i To 0 Step -1: x(i) = Empty: Next
  toto = Trim(Join(x))
End Function