Dupliquer une feuille excel par macro

BOnjour, j'essaie de dupliquer une feuille excel faite en modèle via une macro. Le hic c'est que çà ne marche pas.
POur le titre de l'onglet, je voulais récupérer les données inscrites en cellule B2.

Il y a un souci d'exécution.

POuvez-vous m'aider?

Merci

Code:

---

1 2 3 4 5

Sub duplic() Worksheets('modele').Copy After:=Sheets(Worksheets.Count) .Name = ActiveSheet.Range("B2").Value End Sub

---

Hello,

1- les noms des feuilles ne sont pas délimités par des quotes (') mais par des double quotes (") ...

2- ce type d'écriture s'utilise dans un bloc With

Code:

---

1 2 3 4 5

Worksheets("feuil1").Copy After:=Sheets(Worksheets.Count) Set MySheet = ActiveSheet With MySheet .Name = Worksheets("feuil1").Range("B2") End With

---

si je mets cela

Code:

---

1 2 3 4 5 6 7 8

Sub duplic() Worksheets("feuil1").Copy After:=Sheets(Worksheets.Count) Set MySheet = ActiveSheet With MySheet .Name = Worksheets("feuil1").Range("B3") End With End Sub

---

çà ne marche pas

erreur d'exécution
l'indice n'appartient pas à la sélection

Si je mets le code tel qu'écrit plus haut : çà me met erreur de compilation instruction incorrecte à l'intérieur d'une procédure.

J'ai du louper une étape.

Merci d'avance

sur qu'elle ligne l'erreur ...? la feuil1 est bien présente dans ton classeur...?

Le code donné par cafeine est un exemple.

Le but n'était pas de le copier tel quel.

Il me semble que ta feuille modèle s'appelle "modele" et pas "feuil1".