Option Explicit
Sub ImportTXT()
Dim WB As Workbook, WS As Worksheet
Dim Record As String
Dim Container As Variant
Dim i As Integer, ii As Byte
Dim ThePath As String
Set WB = ThisWorkbook
Set WS = WB.Worksheets.Add(After:=WB.Worksheets(WB.Worksheets.Count))
WS.Name = "Import Txt " & Format(Now, "DDMMYY HHMMSS")
ThePath = WB.Path & "\fichier-test-download.txt" 'A Adapter...
Open ThePath For Input As #1
Do While Not EOF(1)
i = i + 1
Line Input #1, Record
Container = Split(Record, Chr(59))
If Record <> "" Then
For ii = 1 To 18
If Left(Container(ii - 1), 1) = "+" Or Left(Container(ii - 1), 1) = "-" Then
WS.Cells(i, ii) = "'" & Container(ii - 1)
Else
WS.Cells(i, ii) = Container(ii - 1)
End If
Next ii
End If
Loop
Close #1
End Sub