Probleme d'écriture dans la duplication d'une feuille

Salut à tous,

J'essaie à partir d'une page matrice Excel nommé "Trame" de la copier tout en changeant le nom de l'onglet grace à une USF. Mais le code ci-dessous ne l'entend pas de cet oeil.

Sheets("Trame").Copy Before:=Sheets("Trame")
    Sheets("Trame").Copy.Name = Me.TextBox1.Value

Si c'est juste pour une page je pourrai bidouiller en mettant

Sheets("Trame_(2)").Name = Me.TextBox1.Value

mais si j'ai plusieurs pages à faire, ça se complique.

Pouvez-vous m'aider ?

Merci

Bonjour,

Vérifie donc si le code ci-dessous ne le voit pas de cette oreille.

Sheets("Trame").Copy Before:=Sheets("Trame")
ActiveSheet.Name = Me.TextBox1.Value

A+

Salut

Merci, je ne connaissais pas la fonction "ActiveSheet" et tout s'éclaircit )

Maintenant je peux entendre de mes oreilles et voir de mes propres yeux et tout ça grace à toi.

Trop cool.