Importer un fichier .txt en trois colonnes sur un tableaux excel

Bonjour, voila j'ai un problème avec mon programme , j'essaye de récupérer un fichier .txt sur un tableau excel mais le programme plante a chaque en me signalant etiquette non definie
svp est ce que quelqu'un peut m'aider
merci d'avance
voici le programme

Private Sub CommandButton1_Click()

FichierSource = Application.GetOpenFilename
Application.Calculation = xlCalculationManual


Open FichierSource For Input As #1

i = 0
Do
        If EOF(1) = False Then
        Input #1, Réel
        Range("x").Cells(1 + i) = Réel
        Input #1, Réel
        Range("y").Cells(1 + i) = Réel
        Input #1, Réel
        Range("z").Cells(1 + i) = Réel
        i = i + 1
        If (i > 5) Then
        End If
        Input #1, Réel
        Range("I").Cells(1 + i) = Réel
        Input #1, Réel
        Range("P").Cells(1 + i) = Réel
        Input #1, Réel
        Range("PCorr").Cells(1 + i) = Réel
        i = i + 1
        If (i > 8) Then Exit Do
        Else: GoTo 49
        End If
Loop Until EOF(1)

Application.Calculation = xlCalculationAutomatic

Close
End Sub