Dupliquer une feuille et renommer l'onglet issu liste

bonjour,

j'ai une feuille de réglage avec une liste de nom, j'ai une feuille modèle, je souhaite dupliquer cette feuille autant de fois qu'il y a de noms dans ma liste et renommer chaque nouvelle feuille par le nom associé.

si vous avez une macro dans votre bibliothèque pour effectuer ce genre d'opération, je vous en serai reconnaissant !

merci d'avance

Cordialement

Bonsoir

Vite fait sur le gaz

Tes données en colonne A de la ligne 1 à la ligne ......

Option Explicit

Sub AjouteFeuilles()
Dim J As Long
Dim Ws As Worksheet

  Application.ScreenUpdating = False
  Set Ws = ActiveSheet
  For J = 1 To Ws.Range("A" & Rows.Count).End(xlUp).Row
    If Not FeuilleExiste(Ws.Range("A" & J).Value) Then
      Sheets("Modèle").Copy after:=Sheets(Sheets.Count)
      ActiveSheet.Name = Ws.Range("A" & J)
    End If
  Next J
  Ws.Select
End Sub

Function FeuilleExiste(Nom As String) As Boolean
  On Error Resume Next
  FeuilleExiste = Sheets(Nom).Name <> ""
  On Error GoTo 0
End Function

super merci !

Rechercher des sujets similaires à "dupliquer feuille renommer onglet issu liste"