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