Voilà Veriland a été plus rapide,
Par contre Sangoku, moi au lieu d'utiliser une liste de fichiers dans la feuille2, je propose aprés chaque importation d'ouvrir le fichier qu'on veut importer.
Voici le code
Sub import()
'concatenation de fichier
Dim reponse As String
Dim l As Integer
Set wk = Workbooks("totog")
Set ws1 = wk.Sheets("feuil1")
1 ''''''''comme en basic on a une ligne 1
reponse = MsgBox("VOULEZ VOULEZ OUVRIR UN FICHIER", vbOKCancel, "OUVERTURE FICHIER")
If reponse = vbOK Then 'On accepte d'ouvrir lefichier
filetoopen = Application.GetOpenFilename("Excel fichiers (*.xls), *.xls")
If filetoopen <> False Then
Workbooks.Open (CStr(filetoopen))
Set wk2 = ActiveWorkbook
Set ws2 = wk2.Sheets(1) 'les donnees doivent être dans la 1ere feuille ou à adapter
ws2.Select
'Sélection de la premiére cellule contenant des données
Range("A1").Select
' Sélection de la plage de données à copier
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
' Copie des données
ws1.Activate
l = ws1.Range("A65536").End(xlUp).Row
Cells(1, 1).Offset(l, 0).Select
ActiveSheet.Paste
Else: Exit Sub
End If
Else: Exit Sub
End If
GoTo 1 'on revient au début
End Sub
A++
PS il faut rajouter des tests voir si le fichier qu'on ouvre n'est pas déjà ouvert.....