Extraire les données d'une cellule

Sub EnColonne()
Dim T, DL As Long, Plage As Range, CC As Range
Application.ScreenUpdating = False
DL = 1

With Worksheets("Reçu")
.Columns(2).NumberFormat = "@"
Set Plage = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
End With

With Worksheets("Attendu")
For Each CC In Plage
    T = Split(CC.Value, "', ")
    .Range("B" & DL).Resize(UBound(T, 1), 1) = Application.Transpose(T)
    DL = .Range("B" & Rows.Count).End(xlUp).Row + 1
Next
End With
Application.ScreenUpdating = True

End Sub

Sub Macro1()
'
' Macro1 Macro
'
Dim tablo() As Variant
Dim res As Variant
Application.ScreenUpdating = False

With Sheets("Reçu")
    fin = .Range("A" & .Rows.Count).End(xlUp).Row
    tablo = .Range("A1:A" & fin).Value
End With
For i = LBound(tablo, 1) To UBound(tablo, 1)
    res = Split(tablo(i, 1), ",")
    For j = LBound(res) To UBound(res)
        res(j) = WorksheetFunction.Substitute(WorksheetFunction.Substitute(WorksheetFunction.Substitute(res(j), "'", ""), "(", ""), ")", "")
    Next j
    Sheets("Reçu").Range("A" & i).Resize(1, UBound(res)) = res
Next i
Application.ScreenUpdating = True
End Sub

EnColonne()
Dim TT, T, DL As Long, i As Long
Application.ScreenUpdating = False

DL = 1
With Worksheets("Reçu")
TT = .Range("A1:B" & .Range("A" & Rows.Count).End(xlUp).Row)
End With

With Worksheets("Attendu")
For i = LBound(TT, 1) To UBound(TT, 1)
    T = Split(TT(i, 1), "', ")
    .Range("B" & DL).Resize(UBound(T, 1) + 1, 1) = Application.Transpose(T)
    .Range("C" & DL).Resize(UBound(T, 1) + 1, 1) = TT(i, 2)
    DL = .Range("B" & Rows.Count).End(xlUp).Row + 1
Next
End With
Application.ScreenUpdating = True
End Sub