Sub EcritDansExcel()
Dim XlApp, XlClas
'Création d'un Excel
Set XlApp = CreateObject("Excel.Application")
'Ouverture du classeur
Set XlClas = XlApp.Workbooks.Open("C:\temp\essai.xls")
'Ecriture d'une valeur en A1 de Feuil1
XlClas.Worksheets("Feuil1").Range("A1").Value = "toto"
'Sauvegarde des modifications et fermeture du classeur
XlClas.Close True
'On quitte Excel
XlApp.Quit
'On libère la mémoire des variables
Set XlClas = Nothing
Set XlApp = Nothing
End Sub