Private Sub Command0_Click()
Dim xlBook As Excel.Workbook
Dim xlApp As Excel.Application
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Users\thibaud.nicolazi\Desktop\Performance_Reports\Arbi_Performance.xlsm")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Range("A1:W100000").ClearContents
strPath = "C:\Users\thibaud.nicolazi\Desktop\Performance_Reports\Arbi_Performance.xlsm"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Data Arbitrage", strPath
End Sub