Diviser un fichier excel en plusieurs fichiers de 10 feuille

Bonjour,

J'ai un fichier qui contient un grand nombres de feuilles, et je voudrais le diviser en fichiers de 10 ou 20 ou ... feuilles.

Un code VBA sera plus pratique car le fichier contient plus de 100 feuilles, et j'ai plusieurs fichiers à diviser.

J'ai écrit ce code avec mes modestes connaissance en VBA, mais il sépare chaque feuille dans un fichier.

Sub Copier_Feuilles()

Dim Début As Integer
Dim Fin As Integer

    Début = InputBox("Prémière feuille à renommer")
    Fin = InputBox("Dernière feuille à renommer -- VALEUR MAX = " & Worksheets.Count)

Dim i
    For i = Début To Fin
        ActiveWorkbook.Sheets(i).Copy
        ChDir "C:\Users\hm\Desktop\Mes Petits Fichiers"
        ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\hm\Desktop\Mes Petits Fichiers\Classeur1.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close

    Next i

En enregistrant une macro j'obtiens ce-ci, mais je voudrais bien définir le nombre de feuilles et non pas leurs noms.

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets(Array("DMR_001", "DMR_002", "DMR_003", "DMR_004")).Select
    Sheets("DMR_004").Activate
    Sheets(Array("DMR_001", "DMR_002", "DMR_003", "DMR_004")).Copy
    ChDir "C:\Users\hm\Desktop\Mes Petits Fichiers\"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\hm\Desktop\Mes Petits Fichiers\Classeur1.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
    Sheets(Array("DMR_005", "DMR_006", "DMR_007", "DMR_008")).Select
    Sheets("DMR_008").Activate
    Sheets(Array("DMR_005", "DMR_006", "DMR_007", "DMR_008")).Copy
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Users\hm\Desktop\Mes Petits Fichiers\Classeur2.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub

Ne sachant pas manipuler les "Array" je fais appel à vous pour me donner un coup demain

Le nombre de feuilles à copier peut tout aussi bien être un nombre de feuilles sélectionnées au lieu de demander par InputBox la 1ere et la dernière feuille à copier.

Merci de votre habituelle aide.