Programmer avec Excel 2007

Bonjour, je vais savoir comment on peut copier automatiquement les données d'une feuille sur plusieurs autres même 15? car je fais un petit programme que dois multiplier sur plusieurs feuilles mais en copiant je ne parvient pas à coller avec la mise en forme originale je serais obligé de modifier cette mise dans chaque feuille ce qui est un grand travail, je veux que ceci soit automatique. ce programme contient plusieurs formules et quelques validations des données. j'espère votre aide SVP merci.

Bonjour,
exemple de copie sur plusieurs feuilles en conservant le format

Code:

---

1 2 3 4 5

Selection.Copy Sheets(Array("Feuil2", "Feuil3")).Select Sheets("Feuil2").Activate Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone , SkipBlanks:=False, Transpose:=False

---