Sub SetDataTest()
Application.ScreenUpdating = False
Cells.Clear
[A4] = "ITEM1": [A4].AutoFill [A4:N4], 0: [A5:N50] = "=ROW()*COLUMN()"
[A10:A12,A19:A22,A29:A33,A41:A46] = Empty
MsgBox "Fin génération des données de test", vbInformation + vbOKOnly
End Sub
Sub Export_CSV_Bis()
Dim xPath$, NomFic$
xPath = CreateObject("WScript.Shell").SpecialFolders(16)
Range("A5:A50").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
ActiveSheet.Copy
ActiveSheet.Rows("1:3").Delete
Application.DisplayAlerts = False
NomFic = Format(Now, """ExportOF_""dd-mmmm-yyyy""_""hh.mm"".csv")
With ActiveWorkbook
.SaveAs Filename:=xPath & "\" & NomFic, FileFormat:=xlCSV, local:=True
.Close False
End With
End Sub