Function creerFichier(chemin As String, feuille As Worksheet)
Dim xlApp As Excel.Application
Dim xlSheet1 As Excel.Worksheet
Dim xlBook2 As Excel.Workbook
Dim xlSheet2 As Excel.Worksheet
'On créer l'objet Excel
Set xlApp = CreateObject("Excel.Application")
'On défini le nombre d'onglets
xlApp.SheetsInNewWorkbook = 1
'On ajoute un classeur
Set xlBook2 = xlApp.Workbooks.Add
'On donne un nom au classeur
xlBook2.SaveAs (chemin)
'On rend le classeur visible
'xlApp.Visible = True
' Selection de la feuille source du classeur actif par son nom.
Set xlSheet1 = feuille
Dim nbfeuille As Integer
nbfeuille = xlBook2.Sheets.Count
' Copie de la feuille.
xlSheet1.Select
ThisWorkbook.ActiveSheet.Copy before:=xlBook2.Worksheets(xlBook2.Worksheets.Count)
xlBook2.Save
xlBook2.Close
xlApp.Quit
Set xlApp = Null
End Function