Bonjour boodebooz,
proposition à tester,
vous devez ajouter un onglet à votre fichier et nommer cet onlet "r1" avant d'exécuter la macro.
mais on pourrait ajouter une ligne de code pour faire cet ajout.
ps/ les fichier.csv sont enregistrer dans le même répertoire du fichier xlsm
Sub test_Enregister_CSV()
Set wk1 = ThisWorkbook
rep = wk1.Path
fin = Sheets("1").Cells(Rows.Count, 1).End(xlUp).Row
dt = Right(Sheets("1").Range("C4"), 4) & "-" & Mid(Sheets("1").Range("C4"), 4, 2) & "-" & Left(Sheets("1").Range("C4"), 2)
Sheets("r1").Range("A1:BE3").Value = Sheets("1").Range("A2:BE4").Value
For i = 5 To fin Step 250
k = k + 1
Sheets("r1").Range(Cells(4, 1).Address, Cells(253, 57).Address).Value = Sheets("1").Range(Cells(i, 1).Address, Cells(i + 249, 57).Address).Value
Sheets("r1").Range(Cells(254, 1).Address, Cells(503, 57).Address).Value = Sheets("2").Range(Cells(i, 1).Address, Cells(i + 249, 57).Address).Value
Sheets("r1").Copy
ActiveWorkbook.SaveAs Filename:=rep & "\Ulpoad v1" & dt & " (" & k & ").csv", FileFormat:=xlCSV, CreateBackup:=False, local:=True
ActiveWorkbook.Close SaveChanges:=False
wk1.Activate
Sheets("r1").Range("A4:BE504").ClearContents
Next i
Sheets("r1").Cells.ClearContents
End Sub