Private sub............. Dim xlApp As Excel.Application Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Excel.Worksheet xlApp = CreateObject("Excel.Application") xlWorkBook = xlApp.Workbooks.Add xlWorkSheet = xlWorkBook.Sheets(1) 'ici je crée un nouveau classeur, mais tu peut en ouvrir 'un existant aussi xlWorkSheet.Cells(ligne, colonne).value = "ton contenu ici" xlWorkBook.SaveAs(tonNomDeFichierIci) xlWorkBook.Close() xlApp.Quit() releaseObject(xlApp) releaseObject(xlWorkBook) releaseObject(xlWorkSheet) end sub