XL pour MAC Fusionner plusieurs CSV dont l'onglet porte le nom du fichier dans un seul fichier xlsm (Mac 365)

Sub Consolider_CSV()
Dim chemin$, fichier$, a$(), n&, x%, texte$, nn&
chemin = ThisWorkbook.Path & Application.PathSeparator
fichier = Dir(chemin)
ReDim a(1 To Rows.Count, 1 To 1)
While fichier <> ""
    If Right(fichier, 4) = ".csv" Then
        n = n + 1
        x = FreeFile
        Open chemin & fichier For Input As #x 'accès en lecture séquentielle
        Line Input #x, texte
        If nn = 0 Then nn = 1: a(1, 1) = texte & ";Fichier CSV"  'récupère la ligne de titre
        While Not EOF(1) 'EndOfFile : fin du fichier
            nn = nn + 1
            Line Input #x, texte 'récupère la ligne
            a(nn, 1) = texte & ";" & fichier
        Wend
        Close #x
    End If
    fichier = Dir
Wend
'---restitution---
Application.ScreenUpdating = False
With Feuil1 'CodeName, à adapter
    .Cells.Clear 'RAZ
    If nn Then
        With .[A1].Resize(nn)
            .Value = a
            .TextToColumns [A1], xlDelimited, Semicolon:=True 'commande Convertir
        End With
        .Rows(1).Font.Bold = True 'gras
        .Columns.AutoFit 'ajustement largeurs
    End If
    With .UsedRange: End With 'actualise les barres de défilement
End With
Application.ScreenUpdating = True
If n Then MsgBox n & " fichier" & IIf(n > 1, "s", "") & " CSV consolidé" & IIf(n > 1, "s...", "...")
End Sub

Sub Consolider_CSV()
Dim chemin$, fichier$, ncol%, F As Worksheet, lig&, n&
chemin = ThisWorkbook.Path & Application.PathSeparator
fichier = Dir(chemin)
ncol = 4 'nombre de colonnes des fichiers CSV, à adapter
Set F = Feuil1 'CodeName, à adapter
lig = 1 '1ère ligne de destination
Application.ScreenUpdating = False
F.Rows(lig & ":" & F.Rows.Count).Clear 'RAZ
While fichier <> ""
    If Right(fichier, 4) = ".csv" Then
        n = n + 1
        Workbooks.OpenText chemin & fichier, Local:=True
        With Sheets(1).[A1].CurrentRegion.resize(, ncol)
            If n = 1 Then .Rows(1).Copy F.Cells(lig, 1): F.Cells(lig, ncol + 1) = "Fichier CSV": lig = lig + 1
            If .Rows.Count > 1 Then
                .Rows(2).Resize(.Rows.Count - 1).Copy F.Cells(lig, 1)
                F.Cells(lig, ncol + 1).Resize(.Rows.Count - 1) = ActiveWorkbook.Name
                lig = lig + .Rows.Count - 1
            End If
        End With
        ActiveWorkbook.Close False
    End If
    fichier = Dir
Wend
F.Rows(1).Font.Bold = True 'gras
F.Columns.AutoFit 'ajustement largeurs
With F.UsedRange: End With 'actualise les barres de défilement
Application.ScreenUpdating = True
If n Then MsgBox n & " fichier" & IIf(n > 1, "s", "") & " CSV consolidé" & IIf(n > 1, "s...", "...")
End Sub