Dim EX As New Application
Public Book As Workbook
Public Feuille As Worksheet

'Microsoft Excel X,X object librairy

Sub AjouterExcel()
    Set EX = CreateObject("Excel.application")
    EX.Visible = True
    Set Book = EX.Workbooks.Add
    'Toutes les fonctions Application sont disponnibles avec BooK
    Set Feuille = Book.Sheets(1)
    'Exemple:
    Feuille.Name = "Cette Feuille"
    With Feuille
        .[A1] = "Ceci est la cellule A1"
        .[A2] = "Ceci est la cellule A2"
        .Columns("A:A").ColumnWidth = 23.14
    End With
    'Toutes les fonctions excel sont disponnible avec Feuille.
End Sub