Macro Excel: Couper des donnees d'une cellule

Sub Macro1()
dim T
    sheets("Feuil1").Activate
    T = Split(Range("D1").Text, "READING", -1)
    'La clé dans T(1)
    T(1) = Mid(T(1), 2, 11)
End Sub

Sub Macro2()
dim T, D
    sheets("Feuil1").Activate
    T = Split(Range("D1").Text, "<", -1)
    D = Split(T(1), "\>, -1)
    'La clé dans D(0)
End Sub

    Sheets("Sheet3").Range("C2").Value = D(0)

Sub Macro3()
dim Txt as string, L as long
    sheets("Sheet3").Activate
    Txt = Range("A1").Text
    L = len(Txt) 'la longueur du texte de la cellule
End Sub

Sub Macro3()
Dim T, D
Dim i As Integer, e As Integer

    Sheets("Feuil1").Activate
    T = Split(Range("A1").Value, "<READINGS>", -1)
    D = Split(T(1), "</READINGS>", -1)
    'La clé dans D(0)
    'La variable est trop longue pour l'assigner directement dans une cellule
    'Max = 1024
    'La découper et mettre dans plusieur cellules.
    e = 1
    For i = 1 To Len(D(0)) Step 1024
        Cells(2 + e, 5).Value = Mid(D(0), i, 1024)
        e = e + 1
    Next i
End Sub

Function ElementListe(chaine As String, separateur As String, position As Long) As String
'Fonction retournant une chaine provenant d'une liste de valeur avec un séparateur
' - Paramètre 1 : Chaine de caractère contenant la liste des valeurs
' - Paramètre 2 : Chaine ou caractère représentant le séparateur
' - Paramètre 3 : Position de la liste de la valeur à retourner
'@Auteur: Rémi Porcedda

' Variables
Dim tableau() As String

' Tableau recevant la liste de valeurs
tableau = Split(chaine, separateur)

' Retour en fonction de la position demandée
ElementListe = tableau(position - 1)

End Function