Sub Import()
Dim FichierSource As Workbook
Dim Source As Variant
Dim CptrFile As Integer
Dim oFSO As Scripting.FileSystemObject
Source = Application.GetOpenFilename("Fichier Excel, *.csv", , "Module de fusion de fichiers", , True)
For CptrFile = 1 To UBound(Source)
Set FichierSource = Workbooks.Open(Filename:=Source(CptrFile), Converter:=True)
FichierSource.Sheets(1).Copy Before:=ThisWorkbook.Sheets(1)
FichierSource.Close
Next
End Sub