Sub import()
Dim lesFichiers, i As Integer
lesFichiers = Application.GetOpenFilename("Fichier, *.*", , , , True)
For i = LBound(lesFichiers) To UBound(lesFichiers)
ThisWorkbook.Sheets.Add after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
rep = CsvToXls(ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count), lesFichiers(i))
Next i
End Sub