Création en auto d'un fichier texte à partir d'un fichier CSV

Sub EONIATEST_IV()
'crédits à Docmarti pour l'ouverture du CSV ;o)
Dim Chemin$, fCSV As Workbook, NewTxtFile As Workbook, fic, dl&, ncol, arrFor
Chemin = ThisWorkbook.Path & "\"
fic = Application.GetOpenFilename("Fichiers CSV (*.csv), *.csv")
    If fic = False Then
    Exit Sub
    End If

Application.ScreenUpdating = False 'fige écran

Set fCSV = Workbooks.Open(fic, , , 2, , , True, , , , , , False, local:=True)
Set NewTxtFile = Workbooks.Add(xlWBATWorksheet)

fCSV.Sheets(1).Copy After:=NewTxtFile.Sheets(1): fCSV.Close False

With NewTxtFile
    .Sheets(1).Name = "EXPORT_TXT"
    With .Sheets(2)
        .Name = "eonia"
        .Columns("C:G").Delete: .Rows("1:8").Delete
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
    End With
    With .Sheets("EXPORT_TXT")
    .Activate
    ncol = Array(1, 9, 50, 61, 76)
    arrFor = Array("=""IN""", "=""EON""", "=TEXT(eonia!RC[-49],""aaaammjj"")", "=eonia!RC[-59]", "=eonia!RC[-74]")
        For i = 0 To 4
            .Cells(1, ncol(i)).FormulaR1C1 = arrFor(i)
        Next i
    .Range("A1:BX1").AutoFill Destination:=Range("A1:BX" & dl), Type:=xlFillDefault
    .UsedRange.Value = .UsedRange.Value
    End With
    Application.DisplayAlerts = False 'inhibe alert message
    .Sheets(2).Delete
    .SaveAs Chemin & "Export_Test" & Format(Date, "ddmmyyyy") & ".txt", xlText, False
    .Close True
    Application.DisplayAlerts = True
End With
MsgBox "Traitement terminé mais c'est pas beau à voir ;o) "
Application.ScreenUpdating = True
End Sub

Sub EONIATEST_V()
Dim fCSV As Workbook, NewTxtFile As Workbook, Fichier$, dl&, i&
Const Ici$ = "C:\Temp\": Const Fic$ = "eonia.csv": Fichier = Ici & Fic
Application.ScreenUpdating = False
Set fCSV = Workbooks.Open(Fichier, , , 2, , , True, , , , , , False, local:=True)
Set NewTxtFile = Workbooks.Add(-4167): fCSV.Sheets(1).Copy After:=NewTxtFile.Sheets(1): fCSV.Close False
With NewTxtFile
    .Sheets(1).Name = "EXPORT_TXT"
    With .Sheets(2)
        .Name = "eonia"
        .Columns("C:G").Delete: .Rows("1:8").Delete
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
    End With
    Set f = Sheets("eonia")
    With .Sheets("EXPORT_TXT")
    .Cells(1, 1).Resize(dl) = "IN": .Cells(1, 9).Resize(dl) = "EON"
        For i = 1 To dl
        .Cells(i, 50) = Format(f.Cells(i, 1), "yyyymmdd"): .Cells(i, 61) = f.Cells(i, 2): .Cells(i, 76) = f.Cells(i, 2)
        Next i
    End With
    Application.DisplayAlerts = False
    .Sheets(2).Delete
    .SaveAs Ici & "XTXT" & Format(Now, """J""dmyyyy""H""hhmmss") & ".txt", 21
    .Close True
    Application.DisplayAlerts = True
End With
Application.ScreenUpdating = True
End Sub