Cherche Macro Excel

Bonjour

Je cherche un macro qui fait se calcule là :

J’ais 2 classeur Excel classeur1 et classeur2 , dans le classeur1 jais plusieurs feuil est le nombre de set feuil n’est pas fixe peux être plus ou moins ( temps en temps j’ajoute une feuil et j’enlève autre ) , j’ais des enregistrement dans c’est feuil dans les même cellule pour tous les feuil ,c’est a dire c’est la même feuil dupliquer plusieurs fois avec des enregistrement défirent , par exemple :

A1 ------> c’est le Nom du client
E5 ------> c’est l’Adresse client
H9 -----> c’est le Tel client

C’est enregistrement la sen dan les même cellule pour tous les feuil mes avec des valeur défirent (client défirent ,chaque feuil pour un client ).

Alors je veux la macro dans le classeur2 qui me donné c’est enregistrement là automatiquement chaque feuil (client) dans une ligne . (en prend en charge ue en peux ajouter des feuil (client) est supprimer autre .

(voila le code que j'ais sur VB de macro que je les enregistrer mais pour un seule enregistrement :




Sub copier()
'
' copier Macro
' Macro enregistrée le 06/05/2006 par tnamane
'

'
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil3!R1C1"
Range("C3").Select
Windows("Classeur1.xls").Activate
Range("B3").Select
Windows("Classeur2.xls").Activate
Range("C3").Select
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil3!R2C2"
Range("C4").Select
Windows("Classeur1.xls").Activate
Range("C4").Select
Windows("Classeur2.xls").Activate
Range("D3").Select
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil3!R3C3"
Range("B5").Select
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil2!R1C1"
Range("C5").Select
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil2!R2C2"
Range("D5").Select
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil2!R3C3"
Range("B6").Select
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil1!R1C1"
Range("B7").Select
Windows("Classeur1.xls").Activate
Windows("Classeur2.xls").Activate
Range("C6").Select
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil1!R2C2"
Range("D6").Select
ActiveCell.FormulaR1C1 = "=[Classeur1.xls]Feuil1!R3C3"
Range("E9").Select


End Sub



que ment faire se code la en BOUCLE , c'est a dire en boucle pour tous les feuil existe dans le classeur1.)

C’est trais urgent
Je vous remercier d’avance
Merci Beaucoup.