[Excel VB] Extraction texte dans une cellule

Sub Macro2()

    With ActiveSheet.QueryTables.Add(Connection:="TEXT;G:\depression.txt", _
        Destination:=Range("$A$1"))
        .Name = "depression musee"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Option Explicit

Public Chemin As String
Public Fichier As String
Public FichierCour As String
Public FichPath As String

'Sélectionner un fichier par boite de dialogue
Function SelectionFichier() As Boolean
Dim i As Integer
    FichPath = Application.GetOpenFilename(FileFilter:="(*.*),*.tous" _
            , Title:="Sélectionnez le fichier à convertir")
    If FichPath = "Faux" Then 'pas de sélection faite
        Exit Function
    End If
    For i = Len(FichPath) To 2 Step -1
        If Mid(FichPath, i, 1) = "\" Then Exit For
    Next i
    Chemin = Left(FichPath, i)
    Fichier = Mid(FichPath, i + 1)
    FichierCour = Left(Fichier, Len(Fichier) - 4)
    SelectionFichier = True
End Function

Sub ConvertirTxt()
Dim Fichier As String, L As Long, TB, i As Integer
Dim LigDetination As Integer
Dim ColDetination As Integer
Dim Wk As Workbook
    Set Wk = ThisWorkbook
        LigDetination = ActiveCell.Row 'Adapter la cellule de destination
        ColDetination = ActiveCell.Column 'Adapter la cellule de destination
    If SelectionFichier Then
        Workbooks.Open Filename:=FichPath
        For L = 1 To Range("A65535").End(xlUp).Row
            TB = Split(Cells(L, 1), " ")
            With Wk.ActiveSheet
                For i = 0 To UBound(TB)
                    .Cells(LigDetination + L - 1, ColDetination + i) = TB(i)
                Next i
            End With
        Next L
        Workbooks(FichierCour).Close
    Else
        Exit Sub
    End If
End Sub