Recopie données sur tous les onglets

Bonjour à tous,

Je voudrais que la plage des données située sur mon onglet nommé "4500" entre A1:A11 et F1:F11 soit recopié sur tous les autres onglets situés après au même endroit.

J'ai tenté plusieurs solutions mais en vain.

Merci de votre aide précieuse...

Vous trouverez ci-joint mon fichier.

Bonjour Jibouchou, bonjour le forum,

Ton fichier ne contient qu'un seul onglet ! Comment veux-tu copier sur tous les autres onglets après 4500 ? Mets au moins un exemple concret. Non ?!...

Mais comme je viens juste de m'acheter une boule de cristal, je te propose ce code :

Sub Macro1()
Dim I As Byte 'déclare la variable I (Incréemnt)
Dim J As Byte 'déclare la variable J (incréemnt)

Application.ScreenUpdating = False 'masque les rafraichissement d'écran
'permet de définr la position de l'onglet "4500"
For I = 1 To Sheets.Count 'boucle sur tous les onglet du classeur
    'si l'onglet se nomme "4500", sélectionne l'onglet sort de la boucle
    If Sheets(I).Name = "4500" Then Sheets(I).Select: Exit For
Next I 'prochain onglet de la boucle

For J = I + 1 To Sheets.Count 'boucle sur tous les onglets après "4500"
    'copie la plage A1:F11 de l'onglet "4500" dans la cellule A1 de l'onglet de J
    Sheets("4500").Range("A1:F11").Copy Sheets(J).Range("A1")
Next J 'prochaone onglet de la boucle
Application.ScreenUpdating = True 'affiche les rafraichissement d'écran
End Sub