Renommer un onglet Excel par macro

Bonjour le forum,

ci-joint un fichier organisé de la manière suivante :

feuille bdd : je liste mes données

feuille création fiche : je mets en forme mes données

feuilles numérotées 1,2,3.... : je créé une "fiche" pour chacune de mes lignes de données

le problème c'est que je n'arrive pas à trouver le code pour renommer l'onglet de la feuille automatiquement, je suis obligé de le renommer manuellement.

Ce que je voudrais, c'est que quand je créé une nouvelle fiche, l'onglet soit renommé avec le numéro de cette nouvelle fiche.

Est-ce possible?

merci de votre aide

Bonjour

A tester.

Cdlt

Option Explicit
Private Sub nouvelle_fiche()
Dim x As Byte
    Application.ScreenUpdating = False
    Worksheets("création fiche").Copy after:=Sheets(Sheets.Count)
    x = Worksheets.Count
    With ActiveSheet
        .Shapes.Range(Array("Rounded Rectangle 1")).Delete
        .Name = x - 2
    End With
End Sub

Bonjour Jean-Eric, le forum,

merci pour ta réponse qui marche.

j'ai aussi essayé cette ligne de code qui marche !

Sheets("création fiche (2)").Name = Sheets("création fiche (2)").Range("C6")

Pour compléter ma demande, comment peut-on faire pour afficher qu'une fiche a déja été créée?