Sub importer_QuandClic()
Dim ouvrir As String
Dim destinataire As Workbook
Set destinataire = ThisWorkbook
ouvrir = Application.GetOpenFilename("Text Files (*.txt), *.txt", Title:="import de données", MultiSelect:=False)
If VarType(chercher) = vbBoolean Then MsgBox "Insersion annulée !": Exit Sub
Workbooks.OpenText Filename:=ouvrir, Origin _
:=xlWindows, StartRow:=16, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 4), Array(7, 4), Array(8, 1))
ActiveWorkbook.Sheets(1).UsedRange.Rows.Copy Destination:=destinataire.Sheets(2).Range("A17")
ActiveWorkbook.Close
End Sub