Sub Test_Import_Deux_Fichiers_TXT()
Dim FichierTXT$, dl&
FichierTXT = Application.GetOpenFilename("Fichier (*.TXT), *.txt")
Workbooks.OpenText FichierTXT, startrow:=2, Tab:=True, Local:=True
With ThisWorkbook.Sheets(1)
dl = .Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveWorkbook.Sheets(1).Range("A1").CurrentRegion.Copy .Cells(dl, 1)
End With
ActiveWorkbook.Close False
FichierTXT = Application.GetOpenFilename("Fichier (*.TXT), *.txt")
Workbooks.OpenText FichierTXT, startrow:=2, Tab:=True, Local:=True
With ThisWorkbook.Sheets(1)
dl = .Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveWorkbook.Sheets(1).Range("A1").CurrentRegion.Copy .Cells(dl, 1)
End With
ActiveWorkbook.Close False
End Sub