Sub test()
Dim tout As String, x, fichier As String, tbl, colonnes
fichier = "C:\Users\polux\DeskTop\bdd.txt"
fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt", 1, "ouvrir un fichier")
If fichier = "" Then Exit Sub
x = InputBox("tapez les numero de colonnes séparée par une virgule", "liste des colonnes")
If x <> "" Then colonnes = Split(x, ",")
x = FreeFile: Open fichier For Binary Access Read As #x: tout = String(LOF(x), " "): Get #x, , tout: Close #x
With CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}"): .SetText tout: .PutInClipboard: End With
With Sheets(1).Cells(1, 1)
.Parent.Activate
.CurrentRegion.Clear
.EntireColumn.NumberFormat = "mm/dd/yyyy"
.Select
ActiveSheet.Paste
DoEvents
tbl = Application.Index(.CurrentRegion.Value, Evaluate("ROW(" & 1 & ":" & .CurrentRegion.Rows.Count & ")"), colonnes)
.CurrentRegion.ClearContents
.EntireColumn.NumberFormat = "m/d/yyyy"
.Resize(UBound(tbl), UBound(tbl, 2)) = tbl
.Select
End With
End Sub