Sub import(Fichier As String, CelTarg As Range)
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Fichier _
, Destination:=CelTarg)
.Name = "export test"
.FieldNames = True
.PreserveFormatting = True
.RefreshStyle = xlInsertEntireRows
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileCommaDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False
End With
End Sub