Transfert fers fichier .CSV

[JORDAN]

Bonjour tout le monde, le Forum,

Avec la macro suivante, je transferts les données de ma ListView vers un fichier .csv
Jusque là tout va bien sauf que la 1ère colonne contient des références de 18 chiffres, du style : 378012340590600250, qui devient : 3.78012E+17 dans le fichier .csv
Dans Excel, ces nombres de 18 chiffres sont au format Texte mais il n'est pas conservé
dans le fichier .csv

Existe-t-il une solution à ce problème ??

Par avance, merci

Public Sub lvSaveToExcelFile(ByVal LV As ListView, Optional ByRef FileName As String = "", Optional Sep As String = ";")

Dim i As Long
Dim j As Long

Dim FSO As Object

Set FSO = CreateObject("Scripting.FileSystemObject")
Dim TXTstream
    
If FileName = "" Then FileName = ThisWorkbook.Path & "\BLCSV.Csv"
    Set TXTstream = FSO.OpenTextFile(FileName, ForAppending, Create)
    
    With TXTstream
        For i = 1 To LV.ListItems.Count '- 1
            .Write LV.ListItems(i).Text & Sep
            For j = 2 To LV.ColumnHeaders.Count - 2
                .Write LV.ListItems(i).SubItems(j - 1) & Sep
            Next
            .WriteLine LV.ListItems(i).SubItems(LV.ColumnHeaders.Count - 1)
        Next
        .Close
    End With
    
    Set TXTstream = Nothing
    Set FSO = Nothing
    
End Sub