Faire des calculs avec le contenu d'une cellule

Dim a  As String, v As Single, unite As String
a = "2.2k"
v = Val(a)
unite = Mid(a, Len(CStr(v)) + 1)

Option Explicit
Function rdsnum(ByVal inp As String) As Long
Dim c As String
rdsnum = 0
Do While Len(inp) > 0
    c = Left(inp, 1)
    inp = Right(inp, Len(inp) - 1)
    If IsNumeric(c) Then
        rdsnum = 10 * rdsnum + CInt(c)
    Else
        Exit Function
    End If
Loop
End Function
Function rdsstr(ByVal inp As String) As String
Dim c As String
Do While Len(inp) > 0
    c = Left(inp, 1)
    
    If IsNumeric(c) Then
        inp = Right(inp, Len(inp) - 1)
    Else
        Exit Do
    End If
Loop
rdsstr = inp
End Function

Sub extrac()
Dim c As Range, t As Integer
Set c = Range("A2")
Do While c <> ""
    For t = InStr(InStr(c, " "), c, " ") To Len(c)
        Select Case Mid(c, t, 1)
            Case "0" To "9"
                Exit For
        End Select
    Next t
    c(1, 2) = Mid(c, 1, t - 2)
    c(1, 3) = Mid(c, t, 5)
    c(1, 4) = Mid(c, t + 6)
Set c = c(2, 1)
Loop
End Sub

For t = InStr(InStr(c, " "), c, " ") To Len(c)

j'ai des lignes avec des virgules entre chaque éléments. Donc pour séparer ces éléments,...

Option Explicit
Function rdsnum(ByVal inp As String) As Single
rdsnum = 0
Do While Len(inp) > 0
    If IsNumeric(inp) Or c = "." Then
        rdsnum = inp
        Exit Function
    End If
    inp = Left(inp, Len(inp) - 1)
Loop
rdsnum = inp
End Function
Function rdsstr(ByVal inp As String) As String
Dim c As String
Do While Len(inp) > 0
    c = Left(inp, 1)
    If IsNumeric(c) Or c = "." Then
        inp = Right(inp, Len(inp) - 1)
    Else
        Exit Do
    End If
Loop
rdsstr = inp
End Function