Sub LancerExcel()
'Lance Excel avec un nouveau document et une seul feuille
Dim I As Integer
On Error Resume Next
Err.Clear
Set xlApp = GetObject(, "Excel.Application") 'Recherche si une instance d'excel tourne deja
If Err.Number <> 0 Then
Set xlApp = CreateObject("Excel.Application") 'Si non, on la crée
Err.Clear
End If
On Error GoTo 0
xlApp.Visible = True ' Rendre Excel visible
Set xlBook = xlApp.Workbooks.Add ' on cré un nouveau XLS
Set xlSheet = xlBook.Worksheets(1) ' On selectionne la 1ere feuille
xlSheet.Cells(1, 1).Select ' On se place en A1
For I = 2 To xlBook.Sheets.Count 'On efface les autres feuilles
xlBook.Sheets(2).Delete
Next I
End Sub