XL 2013 Séparer une base de donnée excel en plusieurs onglets selon une quantité voulue

[chac10]

Bonjour à toute la communauté,
J'ai une nouvelle mission , vous pourrez peut être m'aider à la résoudre.
Je souhaiterais séparer entièrement un fichier Excel contenant un grand nombre de ligne, en plusieurs onglets qui contiendront aux maximum un nombre de 500 lignes.
Il faudrait que chaque onglet soit séparé avec les mêmes en tètes que le fichier d'origine.

Est ce possible de mettre en place un code vba pour ce type de demande ?
J'ai joins un fichier avec le résultat attendu.
Il y a bien 25 colonne dans mon fichier d'origine.
Le nombre de ligne varie.

Chac10

 

[chac10]

Job75,
Ce que vous avez réalisé corresponds totalement à mes attentes, je tiens tout de même à le redire
Chac10

 

[job75]

Pour que ce soit plus propre,
Est ce possible de rassembler les fichiers dupliqués dans un nouveau dossier appelé Campagne avec la date du jour ?
La ils s'éparpillent sur le bureau...
Chac 10

Fichier (3) avec en début de macro :

chemin = ThisWorkbook.Path & "\Campagne " & Format(Date, "yyyy-mm-dd") & "\"
If Dir(chemin, vbDirectory) = "" Then MkDir chemin 'crée le sous dossier

 

[chac10]

Job75,

Je te remercie énormément, grâce à toi, je vais gagner un temps précieux.
Encore une fois, très professionnel.
Je te remercie.
Bonne soirée,

Chac10