XL 2019 .XLS to .CSV to Files 1

Option Explicit
Sub compil()    ' recupe le texte complet  avec binary acces read
    Dim laChain$, x&, x2&, fichier$, newfichier$, chemin$, Lachaine$
    chemin = "C:\Users\polux\DeskTop\InvoicesCSV\"
    newfichier = "fichierFinal.csv"
    If Dir(chemin & newfichier) <> "" Then Kill chemin & newfichier
    fichier = Dir(chemin & "*.csv")

    Do While fichier <> ""

        If fichier <> newfichier Then
            x = FreeFile
            Open chemin & fichier For Binary Access Read As #x
            Lachaine = String(LOF(x), " ")
            Get #x, , Lachaine
            Close #x
             x2 = FreeFile
            Open chemin & newfichier For Append As #x2
            Print #x2, Lachaine & vbCrLf
            Close #x2
        End If
        fichier = Dir
    Loop
MsgBox "compilation terminée"

End Sub

Sub CreerFeuilles()
'se lance par le raccourci clavier Ctrl+A
Dim n%, chemin$, fichier$
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
For n = Sheets.Count To 2 Step -1: Sheets(n).Delete: Next 'RAZ
chemin = Me.Path & "\InvoicesCSV\"
fichier = Dir(chemin & "*.csv")
n = 0
Sheets(1).Cells.ClearContents 'RAZ
While fichier <> ""
    n = n + 1
    If n > 1 Then Sheets(1).Copy After:=Sheets(Sheets.Count)
    Sheets(n).Name = Left(fichier, Len(fichier) - 4)
    fichier = Dir
Wend
Sheets(1).Activate
Workbook_SheetActivate Sheets(1) 'lance la macro
Application.EnableEvents = True
Application.ScreenUpdating = True
MsgBox IIf(n, n, "Aucune") & IIf(n > 1, " feuilles créées...", " feuille créée...")
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim chemin$, fichier$, r As Range, ds$
chemin = Me.Path & "\InvoicesCSV\"
fichier = Dir(chemin & Sh.Name & ".csv")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sh.Cells.ClearContents 'RAZ
If fichier = "" Then Exit Sub
Workbooks.OpenText chemin & fichier, Local:=True
Set r = ActiveWorkbook.Sheets(1).UsedRange
Sh.[A3].Resize(r.Rows.Count) = r.Value
ActiveWorkbook.Close
Sh.[A3].CurrentRegion.TextToColumns Sh.[A3], xlDelimited, Comma:=True 'commande Convertir
'---traitement des dates et des nombres---
ds = Application.DecimalSeparator
For Each r In Sh.UsedRange
    If IsNumeric(Replace(r, ".", ds)) Then r = CDbl(Replace(r, ".", ds))
    If IsDate(r) Then r = CDate(r)
Next
End Sub