Excel: Problem macro copie feuilles et colle!

Bonjour,

Bonjour,
Voilà, j'ai un fichier de 400 feuilles. Je voudrai écrire une macro qui me permettra de copier le contenu de chaque feuille et les coller l'une après l'autre dans une nouvelle feuille unique. Voilà le code que j'ai pu écrire:
__________
Sub Macro2()
'
'

'Traitement Feuille1
Sheets("Sheet 1").Select
Range("A3:I22").Select
Selection.Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
'Traitement F2
Sheets("Sheet 2").Select
Rows("6:67").Select
Application.CutCopyMode = False
Selection.Copy
' fin copie feuille 2
Sheets("Feuil2").Select
Range("A21").Select
ActiveSheet.Paste
' paste feuille 2

' debut automatisation
' traitemen f3
Sheets("Sheet 3").Select
Rows("9:80").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A84").Select
ActiveSheet.Paste
' traitemen f4
Sheets("Sheet 4").Select
Rows("9:80").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
Range("A145").Select
ActiveSheet.Paste
' traitemen f5
Sheets("Sheet 5").Select
Rows("9:80").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
ActiveSheet.Paste
' traitemen f6
Sheets("Sheet 6").Select
Rows("9:80").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil2").Select
End Sub
___________________

Les feuilles 1 et 2 sont ok. Le problème commence au niveau de l'automatisation, à partir de la feuille3.
Je veux utiliser une boucle qui me permettra d'incrémenter.
Voilà ce qui doit ce passer à partir de la feuille 3:
- ouvrir la feuille 3, copier les cellules de la ligne 9 jusqu'à la ligne 80
-ouvrir notre feuille 'mère' (feuil2), localiser la ligne vide la plus proche des lignes utilisées (par la copie des
feuille 1 et 2 et autres) et commencer à copier le contenu de notre feuille à la ligne suivante notre ligne vide
- ainsi de suite pour tous les autres feuilles jusqu'à la feuille 400.

Note: Je me dis qu'on doit déclarer 2 variables et peut être plus:
- 1 entier qui prendra les valeurs incrémentées de +1 (commençant de 3 jusqu'à 400): elle servira à
selectioner les feuille 'sheet 3-4-5-6.... n=400
- 1 chaine de caractère qui prendra la valeur de la ligne libre de la feuil2 et permettra ainsi de commencer à
copier la prochaine feuille
- et puis .... (autant que possible)

Ce qu'il me faut c'est déclarer ces variables et écrire la boucle qui me permettra d'exécuter le copier/coller jusqu'à la feuille 400.
Si vous avez une autre façon d'appréhender, faites moi voir le code et je vais simuler.

Merci d'avance.