Récupérer des données d'un CSV pour les replacer dans excel par VBA

Bonjour le forum,

Cela fait bien longtemps que je n'avais pas écris de messages, mais depuis j'ai bien progressé en VBA ! Cela n'empêche que la je sèche. Jusqu'alors j'importait des données d'un CSV dans excel avec ça :

With Sheets("HistoA").QueryTables.Add(Connection:="TEXT;" & _
"z:\atelier\Données d'entrée\" & "historiqueAffectations.csv", Destination:=Range("B2"))
.Name = "historiqueAffectations_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With

Mais depuis le format du CSV à changé, le séparateur de donnée n'est plus un ";" mais une "," ! Depuis je n'arrive plus a faire fonctionner mon import qui replaçait chaque donnée dans une cellule distincte. Quelqu'un peux m'aider ?