Vb to Excel

'Chemin du fichier a modifier à chaque installation
repertoire = "C:\fichier.xls"
'Ouverture de l'application
Set appexcel = CreateObject("Excel.Application")
'Gestion du fichier et ouverture statique
appexcel.Workbooks.Open repertoire
'Visualisation en fond d'ecran la page excel
appexcel.Visible = True
'On remplit l'entete de la page excel
appexcel.Worksheets(1).Cells(1, 10).Value = "Planning"
appexcel.Worksheets(2).Cells(1, 10).Value = "Planning"
For i = 1 To 2
appexcel.Worksheets(1).Cells(1, i).Font.Bold = True
appexcel.Worksheets(1).Cells(3, i).Value = "Numéro de la tache"