XL pour MAC XL pour MAC Assembler plusieurs fichiers CSV dans un fichier / seul classeur

Public Sub FileSearch()
    Dim StrFolder As String
    Dim objFolder
    Dim FileCsv
    Dim fFile As Integer
    Dim StrPath As String
    Dim f As File
    Dim objFile As File
           StrFolder = ThisWorkbook.path & "\__MACOSX\" 'chemin du Fichier Archive
        Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(StrFolder)
        Set colFiles = objFolder.Files
          LigneCible = 0
With Worksheets("Feuil3")
    For Each f In colFiles 'Pour chaque Fichier du Dossier "__MACOSX"
   ''._Keywordsuggest - piece detachee voiture - 2021-01-26 exemple de Nom
       If f.Name Like "._Keywordsuggest -*" Then  'si le Nom de ce Fichier à la forme "._Keywordsuggest
                fFile = FreeFile
            Debug.Print f.Name 'Pour le Test On imprime son Nom dans la fenêtre "Exécution"
            FileCsv = StrFolder & "\" & f.Name 'oN constitue le Chemin au Fichier
        Open FileCsv For Input As #fFile 'on ouvre le Fichier pour lecture peut être modifier For Input en Binary
                               Do Until EOF(1) 'on va Boucler jusqu'a la derniere ligne du fichier
                                  Line Input #fFile, LineFromFile 'on récupére la ligne
                                   LigneCible = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 'On définit la première ligne Vide depuis la Colonne 1
                                                        .Cells(LigneCible, 1) = Trim(LineFromFile)  'Oncolle la Ligne
                                Loop
                   Close #fFile
     End If
    Next
        .Cells.Columns.AutoFit
End With
   Set FileCsv = Nothing
   Set objFSO = Nothing
   Set FileCsv = Nothing
   Set objFolder = Nothing
End Sub

Sub Assembler()
'se lance par les touches Ctrl+M
Dim chemin$, fichier$, lig&, P As Range, h&, i%
chemin = ThisWorkbook.Path & Application.PathSeparator
fichier = Dir(chemin) '1er fichier
lig = 1
Application.ScreenUpdating = False
With Feuil1 'CodeName à adapter
    If .FilterMode Then .ShowAllData 'si la feuille est filtr"e
    .Cells.Delete 'RAZ
    While fichier <> ""
        If fichier Like "*.csv" Then
            Workbooks.OpenText chemin & fichier, Local:=True 'ouvre le fichier CSV
            Set P = ActiveSheet.UsedRange.EntireRow
            h = P.Rows.Count
            P.Copy .Cells(lig, 1) 'copier-coller
            .Cells(lig, 1).Resize(h).TextToColumns .Cells(lig, 1), xlDelimited, Semicolon:=True 'commande Convertir, sépateur point-Virgule
            lig = lig + h
            ActiveWorkbook.Close 'ferme le fichier CSV
        End If
        fichier = Dir 'fichier suivant
    Wend
    With .UsedRange
        ReDim a(.Columns.Count - 1) 'base 0
        For i = 0 To UBound(a): a(i) = i + 1: Next
        .RemoveDuplicates a, Header:=xlNo 'supprime les lignes en doublon (titres)
    End With
    With .UsedRange
        .Replace "é", "é", xlPart
        .Replace "è", "è"
    End With
    .Rows(1).Font.Bold = True 'gras
    .Columns.AutoFit 'ajustement largeurs
End With
End Sub