XL 2019 Copier une partie de contenu d'une cellule dans une autre - Macro

Sub extrait()
    Dim i&, C
    Columns(2).Clear
    For Each C In Range("a1:a" & Cells(Rows.Count, "A").End(xlUp).Row)
        For i = 1 To Len([C])
            If Asc(Mid([C], i, 1)) > 64 And IsNumeric(Left(C, 1)) Then
                C.Offset(, 1) = Mid([C], i, 9 ^ 9)
                Exit For
            End If
        Next
    Next
End Sub

Sub Resultat()
Dim tablo, i&, x$, j%
tablo = [A1].CurrentRegion.Resize(, 2) 'matrice, plus rapide
For i = 1 To UBound(tablo)
    x = tablo(i, 1)
    j = InStr(x, ",")
    If j Then If IsNumeric(Left(x, j - 1)) Then x = Mid(x, j + 1)
    For j = 1 To Len(x)
        If UCase(Mid(x, j, 1)) Like "[A-Z]" Then Exit For
    Next j
    tablo(i, 1) = Trim(Left(x, j - 1))
    tablo(i, 2) = Mid(x, j)
Next i
'---restitution---
With Sheets("Résultat")
    .[A1].Resize(i - 1, 2) = tablo
    .[A1].Offset(.Rows.Count - i + 1, 2).ClearContents 'RAZ en dessous
    .Columns.AutoFit 'ajustement largeurs
    .Activate 'facultatif
End With
End Sub

Sub Resultat()
Dim tablo, i&, x$, j%, y$
tablo = [A1].CurrentRegion.Resize(, 2) 'matrice, plus rapide
For i = 1 To UBound(tablo)
    x = tablo(i, 1)
    j = InStr(x, ",")
    If j Then If IsNumeric(Left(x, j - 1)) Then x = Mid(x, j + 1)
    For j = 1 To Len(x)
        y = UCase(Mid(x, j, 1))
        If y Like "[A-Z]" Or InStr("ÀÁÂÃÄÅÒÓÔÕÖØÈÉÊËÌÍÎÏÙÚÛÜÑÇ", y) Then Exit For
    Next j
    tablo(i, 1) = Trim(Left(x, j - 1))
    tablo(i, 2) = Mid(x, j)
Next i
'---restitution---
With Sheets("Résultat")
    .[A1].Resize(i - 1, 2) = tablo
    .[A1].Offset(.Rows.Count - i + 1, 2).ClearContents 'RAZ en dessous
    .Columns.AutoFit 'ajustement largeurs
    .Activate 'facultatif
End With
End Sub