Copier plusieurs fois feuil model+renomer onglet

Bonjour le Forum

j'ai une colonne de B3 a B154 qui contient une liste de nom.Feuille "Base"

cherche le moyen de copier la feuille "Modele" autant de fois qu'il y as de nom soit ici 151 fois

le but est d'avoir sur le même classeur 151 onglet Modele avec le nom de l'onglet qui correspond a B3, B4, B5 etc...

Voici un Fichier test pour mieux comprendre

Merci de votre aide

Bonjour,

une boucle qui va de la ligne 3 à la ligne 154.

Dans la boucle instruction d'ajout de feuille par copier coller de la feuille base

Re nommage de la feuille ainsi créée avec le nom se trouvant en colonne B ligne en cours

Fin de la boucle

@ bientôt

LouReeD

Bonjour,

Ci-joint une proposition à tester, reprenant le principe de LouReed (hello !)

Bonne journée

Bouben

Voici un code moins "pro" mais je le signe !

Sub LouReeD()
    Dim Ligne As Long, Sh As Worksheet
    Application.ScreenUpdating = False
    Set Sh = ActiveSheet
    For Ligne = 3 To 154
        Sheets("Feuille Base").Select
        Sheets("Feuille Base").Copy After:=Sheets(Worksheets.Count)
        ActiveSheet.Name = Sh.Cells(Ligne, 2)
    Next Ligne
End Sub

Bonjour bouben !

@ bientôt

LouReeD

Bonjour

super un gros merci atou les deux

Pica Pica Tchou !!!

Merci @ vous !

@ bientôt

LouReeD