Re
Sans aucune certitude (et surtout sans Mac), je te propose de tester le code suivant à mettre dans un module d'un fichier Excel quelconque placé dans le même dossier que le csv :
Option Explicit
Dim Rep As String, S As String
Rep= ActiveWorkbook.Path & Application.PathSeparator
S = Lire_Txt(Rep & "salesReport.csv")
if not S = "" then Complete_xlsx S, Rep & "Resultat.xlsx"
Msgbox "Traitement = ok"
' ***********************************************************************
Function Lire_Txt(Ndf As String) As String
Dim i As Integer
On Error GoTo errhdlr:
i = FreeFile()
Open Ndf For Binary Access Read As #i
Lire_Txt = Space$(LOF(i))
Get #i, , Lire_Txt
Close #i
Exit Function
errhdlr:
Close #i
Lire_Txt = ""
End Function
sub Complete_xlsx(S, Cible)
Dim derlg As Long, deb As Long, i As Long, j As Long
Dim lg As Variant, cl As Variant, flag As Boolean
with ThisWorkbook.Sheets(1)
derlg = .Cells(Rows.count, 1).End(xlup).Row
if derlg=0 then deb = 1 else deb = 0
lg = split(S, vbCrlf)
for i = deb to ubound(lg)
cl = split(lg(i),",")
for j = 0 to ubound(cl)
.Cells(i + derlg, j + 1).Value = Replace(cl(j),"""","")
next
next
end with
End Sub