Sub ouvrir_excel()
Set exl = CreateObject("excel.application")
exl.Visible = True
exl.Workbooks.Add
exl.ActiveWorkbook.Sheets(1).Cells(1) = "bonjour"
End Sub