XL 2019 Importer fichier csv sans consatener les colonnes

Private Sub CommandButton3_Click()
Dim t, wbDest As Workbook, myPath$, w As Worksheet, myFile$, mySheetName$
t = Timer
Set wbDest = ThisWorkbook
'myPath = "D:\Lycée Stéphane Hessel\OneDrive - Lycée Stéphane Hessel\Karl EPS\Protocoles BGT BCP CAP 23\Import Fichiers Santorin\"
myPath = wbDest.Path & "\"
myFile = Dir(myPath & "*.csv")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'---suppression des feuilles créées précédemment---
For Each w In wbDest.Worksheets
    If w.QueryTables.Count Then w.Delete
Next w
'---création des feuilles---
Do While myFile <> ""
    mySheetName = Left(myFile, Len(myFile) - 4)
    With wbDest
        .Activate
        On Error Resume Next
        .Sheets(mySheetName).Delete 'au cas où...
        On Error GoTo 0
        .Sheets.Add After:=.Sheets(.Sheets.Count)
        ActiveSheet.Name = mySheetName
        With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & myPath & myFile, Destination:=ActiveSheet.Cells(1))
            .TextFileParseType = xlDelimited
            .TextFileSemicolonDelimiter = True
            .Refresh
        End With
    End With
    myFile = Dir
Loop
wbDest.Sheets(1).Activate
MsgBox "Durée " & Format(Timer - t, "0.00 \sec")
End Sub

Sub ImportCSVWithDynamicColumns()
    Dim ws As Worksheet
    Dim filePath As String
    Dim qt As QueryTable
    Dim firstLine As String
    Dim colCount As Integer
    Dim colDataTypes() As Integer
    Dim i As Integer
    Dim FSO As Object
    Dim myFile As Object

    ' Définir le chemin du fichier CSV
    filePath = "C:\chemin\vers\le\fichier.csv"
 
    ' Vérifier si le fichier existe
    If Dir(filePath) = "" Then
        MsgBox "Le fichier n'existe pas : " & filePath, vbExclamation
        Exit Sub
    End If
 
    ' Lire la première ligne du fichier CSV
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set myFile = FSO.OpenTextFile(filePath, 1)
    If Not myFile.AtEndOfStream Then
        firstLine = myFile.ReadLine
    End If
    myFile.Close
 
    ' Afficher la première ligne pour vérification
    MsgBox "Première ligne du fichier CSV: " & firstLine
 
    ' Compter le nombre de colonnes en comptant les délimiteurs ;
    colCount = UBound(Split(firstLine, ";")) + 1
 
    ' Créer dynamiquement le tableau TextFileColumnDataTypes
    ReDim colDataTypes(1 To colCount)
    For i = 1 To colCount
        colDataTypes(i) = 1 ' Importer toutes les colonnes comme texte
    Next i
 
    ' Ajouter une nouvelle feuille ou utiliser la feuille active
    Set ws = ThisWorkbook.Sheets.Add ' Vous pouvez aussi utiliser ThisWorkbook.Sheets("NomDeLaFeuille")
 
    ' Créer une QueryTable pour importer les données du fichier CSV
    On Error GoTo ErrHandler
    Set qt = ws.QueryTables.Add(Connection:="TEXT;" & filePath, Destination:=ws.Range("A1"))
 
    ' Configurer les paramètres de la QueryTable
    With qt
        .TextFileParseType = xlDelimited
        '.TextFileCommaDelimiter = False
        .TextFileSemicolonDelimiter = True ' Définir le délimiteur comme un point-virgule
        '.TextFileConsecutiveDelimiter = False
        '.TextFileTabDelimiter = False
        '.TextFileSpaceDelimiter = False
        '.TextFileOtherDelimiter = False
        .TextFileColumnDataTypes = colDataTypes ' Utiliser le tableau dynamique
        .Refresh BackgroundQuery:=False
        .Parent.Names(.Name).Delete       ' Supprimer le nom défini créé par Excel
        .Delete ' Supprimer la QueryTable   
    End With

    ' Nettoyer
    Set qt = Nothing
    Set ws = Nothing
    Exit Sub

ErrHandler:
    MsgBox "Erreur lors de l'importation du fichier CSV : " & Err.Description, vbCritical
    If Not qt Is Nothing Then
        qt.Delete
        Set qt = Nothing
    End If
    If Not ws Is Nothing Then
        ws.Delete
        Set ws = Nothing
    End If
End Sub

Private Sub CommandButton3_Click()
Dim t, wbDest As Workbook, myPath$, myFile$, mySheetName
t = Timer
Set wbDest = ThisWorkbook
'myPath = "D:\Lycée Stéphane Hessel\OneDrive - Lycée Stéphane Hessel\Karl EPS\Protocoles BGT BCP CAP 23\Import Fichiers Santorin\"
myPath = wbDest.Path & "\"
myFile = Dir(myPath & "*.csv")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While myFile <> ""
    mySheetName = Left(myFile, Len(myFile) - 4)
    With wbDest
        .Activate
        On Error Resume Next
        .Sheets(mySheetName).Delete 'supprime la feuille si elle existe
        On Error GoTo 0
        .Sheets.Add After:=.Sheets(.Sheets.Count)
        ActiveSheet.Name = mySheetName
        With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & myPath & myFile, Destination:=ActiveSheet.Cells(1))
            .TextFileParseType = xlDelimited
            .TextFileSemicolonDelimiter = True
            .Refresh
            .Parent.Names(.Name).Delete 'supprime le nom défini dans la feuille
            .Delete 'supprime la requête
        End With
    End With
    myFile = Dir
Loop
wbDest.Sheets(1).Activate
MsgBox "Durée " & Format(Timer - t, "0.00 \sec")
End Sub

Le Bloc A (With qt) --->>> Avant (6 Colonnes dont une Vide "Colonne B")
Définit explicitement d'autres délimiteurs comme False (.TextFileCommaDelimiter, .TextFileTabDelimiter, etc.).
    With qt
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = False
        .TextFileSemicolonDelimiter = True ' Définir le délimiteur comme un point-virgule
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileOtherDelimiter = False
        .TextFileColumnDataTypes = colDataTypes ' Utiliser le tableau dynamique
        .Refresh BackgroundQuery:=False
        .Parent.Names(.Name).Delete       ' Supprimer le nom défini créé par Excel
        .Delete ' Supprimer la QueryTable
    End With

Le Bloc B (With qt) --->>>  Aprés : (5 Colonnes = OK)
Ne spécifie pas ces autres délimiteurs, donc ils restent à leurs valeurs par défaut.
    With qt
        .TextFileParseType = xlDelimited
        '.TextFileCommaDelimiter = False
        .TextFileSemicolonDelimiter = True ' Définir le délimiteur comme un point-virgule
        '.TextFileConsecutiveDelimiter = False
        '.TextFileTabDelimiter = False
        '.TextFileSpaceDelimiter = False
        '.TextFileOtherDelimiter = False
        .TextFileColumnDataTypes = colDataTypes ' Utiliser le tableau dynamique
        .Refresh BackgroundQuery:=False
        .Parent.Names(.Name).Delete       ' Supprimer le nom défini créé par Excel
        .Delete ' Supprimer la QueryTable
    End With