Sub Openfichier()
fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt", 1, "ouvrir un fichier")
If fichier = False Then Exit Sub
Columns("A:A").Clear
With Sheets(1).QueryTables.Add(Connection:="Text;" & fichier, Destination:=Range("$A$1"))
.Refresh BackgroundQuery:=False
.Delete
End With
End Sub