Convertir une liste pour l'utiliser dans Excel

Option Explicit
Sub LireFichierTexteParLigne()
'par: https://excel-malin.com
Application.ScreenUpdating = False
On Error GoTo CodeErreur
Dim IndexFichier As Integer
Dim MonFichier As String
Dim ContenuLigne As String
Dim i As Long
MonFichier = "C:\Users\LePivert\Documents\essai.txt" '<-- mettez ici le nom du fichier à lire
IndexFichier = FreeFile()
Open MonFichier For Input As #IndexFichier 'ouvre le fichier
i = 1
While Not EOF(IndexFichier) '
    Line Input #IndexFichier, ContenuLigne     ' lecture du fichier ligne par ligne: la variable "ContenuLigne" contient le contenu de la ligne active
    Cells(i, 1) = ContenuLigne
    'ajoutez ici votre code à appliquer pour chaque ligne
    scinderligne (i)
    i = i + 1
Wend
ActiveSheet.Range("A1:F1").Columns.AutoFit
Close #IndexFichier ' ferme le fichier
Application.ScreenUpdating = True
Exit Sub
CodeErreur:
MsgBox "Une erreur s'est produite..."
Application.ScreenUpdating = True
End Sub
Sub scinderligne(ByVal ligne As Integer)
Dim num As String
Dim ville As String
Dim tabu As Integer
ville = Split(Cells(ligne, 1), "QC")(0)
Cells(ligne, 2) = Split(ville, " ")(0)
Cells(ligne, 2) = Cells(ligne, 2) & " " & Split(ville, " ")(1)
num = Split(Cells(ligne, 1), "QC")(1)
Cells(ligne, 5) = Split(num, " ")(1) & " %"
Cells(ligne, 6) = Split(num, " ")(3)
Cells(ligne, 3) = Replace(Cells(ligne, 1), Cells(ligne, 2), "")
Cells(ligne, 3) = Replace(Cells(ligne, 3), Cells(ligne, 5), "")
Cells(ligne, 3) = Replace(Cells(ligne, 3), Cells(ligne, 6), "")
Cells(ligne, 3) = Replace(Cells(ligne, 3), "QC", "")
tabu = UBound(Split(Cells(ligne, 3)))
Cells(ligne, 4) = Split(Cells(ligne, 3), " ")(tabu - 3)
Cells(ligne, 3) = Replace(Cells(ligne, 3), Cells(ligne, 4), "")
End Sub