XL 2016 MACRO VBA - export CSV décalé

Option Explicit

Sub Export_DATA()
Dim strFichier As String, Rep


    strFichier = ThisWorkbook.Path & "\import_prod.csv"
    ' Import des données de production
    'Box de validation
    Rep = MsgBox("Voulez-vous continuer ?", vbYesNo + vbQuestion, "création du CSV ?")
    If Rep = vbYes Then
        ActiveSheet.Copy
        ActiveSheet.SaveAs Filename:=strFichier, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
    Else
        Exit Sub
    End If
    Application.DisplayAlerts = False
    ActiveWorkbook.Close True
End Sub

Option Explicit

Sub Export_DATA()
Dim strFichier As String, Chemin As String, derlig As Long
Dim plage As Range, sep As String, Rep

    derlig = ActiveSheet.Range("a" & Rows.Count).End(xlUp).Row
    Set plage = ActiveSheet.Range("a9:m" & derlig)
    strFichier = ThisWorkbook.Path & "\import_prod.csv"
    sep = ";"    ' séparateur de ton choix
    ' Import des données de production
    'Box de validation
    Rep = MsgBox("Voulez-vous continuer ?", vbYesNo + vbQuestion, "création du CSV ?")
    If Rep = vbYes Then
        SaveAsCSV plage, sep, strFichier
    Else
        Exit Sub
    End If
       Application.DisplayAlerts = False
       ActiveWorkbook.Save
       Application.Quit
End Sub

Sub SaveAsCSV(plage As Range, sep As String, _
strFichier As String)
Dim Temp As String, r As Range, c As Range

    Open strFichier For Output As #1
    For Each r In plage.Rows
        Temp = ""
        For Each c In r.Cells
            Temp = Temp & c & sep
        Next
        Temp = Left(Temp, Len(Temp) - 1)
        Print #1, Temp
    Next
    Close
    Set plage = Nothing: Set c = Nothing: Set r = Nothing
End Sub

Sub Export_CSV()
Dim fCSV As Workbook, strFichier$
With ThisWorkbook
strFichier = .Path & "\" & Split(.Name, ".")(0) & "-import_prod.csv"
End With
ActiveSheet.Copy
Set fCSV = ActiveWorkbook: fCSV.Sheets(1).Rows("1:8").Delete
Application.DisplayAlerts = False
With fCSV
    .SaveAs Filename:=strFichier, FileFormat:=xlCSV, CreateBackup:=False, Local:=True
    .Close False
End With
End Sub

Sub Export_CSV_light()
Dim fCSV As Workbook, strFichier$
With ThisWorkbook
strFichier = .Path & "\" & Split(.Name, ".")(0) & "-import_prod.csv"
End With
Application.ScreenUpdating = 0: Application.DisplayAlerts = 0
ActiveSheet.Copy: Set fCSV = ActiveWorkbook: fCSV.Sheets(1).Rows("1:8").Delete
With fCSV
.SaveAs Filename:=strFichier, FileFormat:=6, Local:=-1: .Close 0
End With
End Sub

Option Explicit
Sub Export_DATA()
Dim strFichier As String, Chemin As String, derlig As Long, Besoin As String, r As Object, c As Object, Temp As String
Dim plage As Range, sep As String, Rep
  
    derlig = ActiveSheet.Range("a" & Rows.Count).End(xlUp).Row
    Set plage = ActiveSheet.Range("A9:AM" & derlig)
    Besoin = Worksheets("DATA_1").Range("C2").Value
    strFichier = ThisWorkbook.Path & "\APRR-NUMA - " & Besoin & "_import_prod.csv"
  
    'formatage des SERIAL
        Set plage = ActiveSheet.Range("a9:m, z9:z" & derlig)
        For Each r In plage.Rows
        Temp = ""
        For Each c In r.Cells
        c.Offset(0, 25) = Cstr(r.Offset(0, 25)
        Temp = Temp & c & sep
        Next
      
  
    sep = ";"    ' choix du séparateur
    ' Import des données de production
    'Box de validation
    Rep = MsgBox("Voulez-vous continuer ?", vbYesNo + vbQuestion, "création du CSV ?")
    If Rep = vbYes Then
        SaveAsCSV plage, sep, strFichier
    Else
        Exit Sub
    End If
       Application.DisplayAlerts = False
       ActiveWorkbook.Save
       'Application.Quit
End Sub

Sub SaveAsCSV(plage As Range, sep As String, _
strFichier As String)
Dim Temp As String, r As Range, c As Range

    Open strFichier For Output As #1
    For Each r In plage.Rows
        Temp = ""
        For Each c In r.Cells
            Temp = Temp & c & sep
        Next
        Temp = Left(Temp, Len(Temp) - 1)
        Print #1, Temp
    Next
    Close
    Set plage = Nothing: Set c = Nothing: Set r = Nothing
End Sub