Définir le nom d'une page par X

Bonjour à tous,

Je pense que mon problème est assez simple mais là je coince.

Je vous joint mon fichier.

Ce que j'aimerai c'est définir le nom de ma feuille par x et donner la valeur de x au début du programme.

En effet je vais devoir exécuter mon programme sur des centaines de feuilles et le programme contient de nombreuses fois le nom de la feuille à rentrer ce qui prend un temps considérable à tout changer.

Grâce à ça je n'aurai plus à rentrer qu'une fois le nom de la feuille pour chaque feuille plutôt que de nombreuse fois.

Je ne sais pas si j'ai été très clair, le ficher que je vous envoie n'est qu'un tout petit échantillon.

Merci de l'aide

Bonjour

Pas trop compris ce que tu cherches à faire

Essayes

Option Explicit

Public Ws As Worksheet

Sub test()

  Set Ws = Sheets("Feuil3")

  Sheets("Feuil1").Select
  ActiveCell.FormulaR1C1 = Ws.Name
  Range("B2").Select
  Ws.Select
  Cells(3, 5).Value = 5
End Sub

Bonjour,

Merci pour le code, c'était exactement ce que je cherchais. Cela m'évite de rentrer des dizaines de fois le nom de ma page. Sachant que je dois les changer tous plus d'une centaine de fois.