Sub ConcatenateTables()
Dim vCurfile As Variant
Dim oCurWbk As Workbook
Dim oFD As FileDialog
Set oFD = Application.FileDialog(msoFileDialogFilePicker)
oFD.AllowMultiSelect = True 'autoriser la sélection de plusieurs fichier
oFD.Filters.Clear 'RAZ des filtres de fichiers
oFD.Filters.Add Description:="Excel Files", Extensions:="*.xls;*.xlsx" 'filtrer sur les fichiers excel
oFD.Show 'afficher la boite de dialogue
If oFD.SelectedItems.Count > 0 Then
ThisWorkbook.Sheets(sSheetList).Range("B3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
For Each vCurfile In oFD.SelectedItems 'pour chaque fichier séléctionné
Set oCurWbk = Application.Workbooks.Open(fileName:=vCurfile) 'ouvrir le classeur
oCurWbk.Sheets(sSheetList).Range("B3").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ThisWorkbook.Activate
ThisWorkbook.Sheets(sSheetList).Range("A65536").End(xlUp).Offset(1).Select
ThisWorkbook.Sheets(sSheetList).Paste
Application.CutCopyMode = False
oCurWbk.Close savechanges:=False 'fermer le classeur sans sauvegarder
Next vCurfile
End If
End Sub '~ConcatenateTables