Pour aider à la compréhension , ci joint le fichier CSV à traiter et en exemple le résultat que j'obtiens après le refresh , après la question 193 ça saute une ligne à chaque retours chariot contenu dans la cellule Question
Voici le code que j'utilise pour extraire mes données
With Fe.QueryTables.Add("TEXT;" & mypath, Fe.Range("A1"))
.TextFileSemicolonDelimiter = True
.TextFilePlatform = 65001
.Refresh 'exécute la requête
.Delete 'supprime la connexion au fichier texte
End With
et du coup celui que j'utilise pour patcher faute de mieux
'Suppression des retours chariot qui foute le dawa
Set wbCSV = Workbooks.Open(Filename:=mypath, Local:=True)
nbLignes = Cells.SpecialCells(xlCellTypeLastCell).Row
For I = 2 To nbLignes
wbCSV.Worksheets(1).Range("GK" & I).Replace Chr(13) & Chr(10), "/"
wbCSV.Worksheets(1).Range("LA" & I).Replace Chr(13) & Chr(10), "/"
wbCSV.Worksheets(1).Range("LA" & I).Replace "- ", ""
Next I
Application.DisplayAlerts = False
wbCSV.SaveAs Filename:=mypath, FileFormat:=xlCSV, Local:=True
wbCSV.Close
Application.DisplayAlerts = True
En espérant êtres clair et en vous remerciant par avance pour votre aide.