Intégrer automatiquement chaque fichier CSV dans chaque onglet excel?

Sub test()
Dim dossier As Object, fichier As Object, Tmp As Variant
Dim Rep$, Fin$, ChaineData$
With Application: .ScreenUpdating = False: .DisplayAlerts = False: End With
Rep = "C:\TEMP\test\Ventes\GROUPE\"
Fin = Format(Date, "yyyy-mm-dd") & ".csv"
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Rep)
Workbooks.Add (1)
With ActiveWorkbook
    For Each fichier In dossier.Files
        If Right(fichier.Name, 14) = Fin Then
            .Sheets.Add(After:=Sheets(Sheets.Count)).Name = _
            Left(fichier.Name, Len(fichier.Name) - 4)
            Open fichier For Input As #1
                Do Until EOF(1)
                    Line Input #1, ChaineData
                    Tmp = Split(ChaineData, ";")
                    .Sheets(Sheets.Count).Cells(Rows.Count, 1).End(xlUp)(2). _
                    Resize(1, UBound(Tmp)) = Tmp
                Loop
            Close #1
        End If
    Next fichier
    If .Sheets.Count > 1 Then .Sheets(1).Delete
End With
With Application: .ScreenUpdating = True: .DisplayAlerts = True: End With
End Sub

Sub test_2()
Dim dossier As Object, fichier As Object, Tmp As Variant
Dim Rep$, Fin$, ChaineData$, LstCol&
With Application: .ScreenUpdating = False: .DisplayAlerts = False: End With
Rep = "C:\TEMP\test\Ventes\GROUPE\"
Fin = Format(Date, "yyyy-mm-dd") & ".csv"
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Rep)
Workbooks.Add (1)
With ActiveWorkbook.ActiveSheet
    For Each fichier In dossier.Files
        If Right(fichier.Name, 14) = Fin Then
            LstCol = .Cells(2, Columns.Count).End(xlToLeft).Column + 2
            If LstCol = 3 Then LstCol = 1
            Open fichier For Input As #1
                Do Until EOF(1)
                    Line Input #1, ChaineData
                    Tmp = Split(ChaineData, ";")
                    .Cells(Rows.Count, LstCol).End(xlUp)(2). _
                    Resize(1, UBound(Tmp)) = Tmp
                Loop
            Close #1
        End If
    Next fichier
End With
With Application: .ScreenUpdating = True: .DisplayAlerts = True: End With
End Sub