XL 2013 Extraire une partie d'une cellule sur Excel

Function CP(Chaine, Choix)
tablo = Split(Chaine, " ")
For i = UBound(tablo) To 1 Step -1
    If IsNumeric(tablo(i)) Then
        If Choix = 1 Then
            CP = Val(tablo(i))
            Exit Function
        End If
        If Choix = 2 Then
            For j = i + 1 To UBound(tablo)
                CP = CP & tablo(j) & " "
            Next j
            Exit Function
        End If
    End If
Next i
End Function

=STXT(A2;SOMMEPROD(ESTNUM(STXT(SUBSTITUE(A2;" ";"|");LIGNE($1:$150);5)*1)*LIGNE($1:$150));100)