ouvrir onglets dont le nom est variable

Bonjour,
Je souhaite, à partir des valeurs contenues en colonne A de la feuille 1 :
- créer un onglet par valeur contenue dans la colonne A
- copier chaque ligne de la colonne A et la coller en ligne 2 de l’onglet correspondant
- renommer chacun de ces onglets selon la valeur de la colonne A
- copier la ligne 1 de la feuille 1 dans chacun de ces onglets

Ne connaissant pas le nom des onglets, je n’arrive pas à y coller la première ligne de la feuil1, pouvez-vous m’aiguiller ?
Merci

Je vous mets le code que j’ai réussi à faire, c’est la dernière étape qui coince.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Worksheets("Feuil1").Activate Dim DerLign As Long, Dim I As Integer   DelLign = Range("A65536").End(xlUp).Row For I = 2 To DerLign   If Worksheets("Feuil1").Range("A" & I) <> "" Then Worksheets("Feuil1").Range("A" & I).EntireRow.Copy Sheets.Add Range("A2").Select ActiveSheet.Paste ActiveSheet.Name = Sheets("Feuil1").Range("A" & I) End If Next

---

Bonjour,
Une solution est d'ajouter la nouvelle feuille avant la première

Code:

---

1 2 3 4 5 6

Sub t1() With ThisWorkbook .Sheets.Add Before:=Sheets(1) MsgBox .Sheets(1).Name End With End Sub

---

Une autre en l'ajoutant après la dernière feuille

Code:

---

1 2 3 4 5

Sub T2() With ThisWorkbook .Sheets("Feuil1").Copy After:=Sheets(Sheets.Count) MsgBox Sheets(Sheets.Count).Name End With

---

Mais dans tous les cas, comme une feuille copiée devient la feuille active, tu peux simplement récupérer son nom

Code:

---

1 2 3 4 5 6

Sub T3() With ThisWorkbook .Sheets.Add Before:=Sheets(1) MsgBox ActiveSheet.Name End With End Sub

---

Bonjour

Merci beaucoup pour votre réponse. Effectivement, je n'avais pas pensé à copier entièrement l'onglet et supprimer dans un deuxième temps les lignes qui ne m'intéressent pas.