modification de code

Option Explicit

Sub Bouton1_QuandClic()
Dim sChemin As String

    sChemin = ThisWorkbook.Path

    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = sChemin & "\"
        .Title = "Sélectionner le fichier TEXTE"
        .AllowMultiSelect = False
        .ButtonName = "Sélection Fichier"
        .Filters.Add "Texte", "*.txt"

        .Show
        If .SelectedItems.Count > 0 Then
            DoEvents
            LectureTxt .SelectedItems(1)
        End If
    End With
End Sub

Private Sub CommandButton1_Click()
'auteur macro originale: Andy Pope
Dim strPath$, strFile$, i As Long
strPath = UserForm2.Données_txt.Value
With ThisWorkbook.Sheets(1)
For i = 1 To .[A65536].End(xlUp).Row
strFile = .Cells(i, 1).Text
 Application.ScreenUpdating = False
        With ActiveWorkbook.Worksheets("Données_brute")
            With .QueryTables.Add(Connection:="TEXT;" & strPath & strFile, _
                Destination:=.[A65536].End(xlUp).Offset)
                .TextFileParseType = xlDelimited
                .TextFileTextQualifier = xlTextQualifierDoubleQuote
                .TextFileSemicolonDelimiter = True
                .TextFileColumnDataTypes = Array(1)
                .Refresh BackgroundQuery:=False
            End With
            .[A1].CurrentRegion.Columns.AutoFit
        End With
        Next i
        End With
Application.ScreenUpdating = False
End
End Sub