Extraire les données d’une cellules

Surfnature 

Ici une macro.

Sélectionnez les cellules avec les textes avant d'exécuter la macro.

Sub SplitData()
    Dim r As Range
    Dim v As String
    Dim a() As String
    Dim i As Long
    Dim s As String
    Dim c As Long
    Dim n As Long
    Dim f As Boolean
    Dim j As Long
    Application.ScreenUpdating = False
    For Each r In Selection
        c = 0
        v = r.Value
        a = Split(v)
        For i = 0 To UBound(a)
            s = a(i)
            If Not s Like "(*)" Then
                n = 0
                f = False
                Do While IsNumeric(Left(s, 1))
                    n = 10 * n + Left(s, 1)
                    s = Mid(s, 2)
                    f = True
                Loop
                If f Then
                    c = c + 1
                    r.Offset(0, c).Value = n
                End If
                For j = 1 To Len(s)
                    c = c + 1
                    r.Offset(0, c).Value = Mid(s, j, 1)
                Next j
            End If
        Next i
    Next r
    Application.ScreenUpdating = True
End Sub