Passer données txt vers xls !

Sub Test()
Dim FirstLineFree As Long, FL1 As Worksheet
Dim Plage As Range
    Set FL1 = ThisWorkbook.Worksheets("feuil1")
        FirstLineFree = FL1.Range("A1").SpecialCells(xlLastCell).Row + 1
        'Ouverture du fichier texte
        Workbooks.OpenText Filename:="D:\txt\Fichier.txt", Origin:=xlWindows, _
        StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, Tab:=True, Semicolon:=False
        DoEvents
    Set Plage = ActiveSheet.UsedRange
        Plage.Copy FL1.Range("A" & FirstLineFree)
    
    Set FL1 = Nothing
    Set Plage = Nothing
End Sub