nommer feuille suivant cellule active

Bonjour,

Je souhaiterais que lorsque ma feuille Fiche identité elle soit aussi accompagné du nom de la celllule A1 de ma feuille fiche de travail. Est ce possible
Je vous joins le code.
Sub creation_fiche_identite()
Sheets("travail_fiche_identité").Visible = True
Sheets("BD").Visible = True
Sheets("travail_fiche_identité").Select
Sheets("travail_fiche_identité").Copy Before:=Sheets(4)
Sheets("travail_fiche_identité (2)").Select

Sheets("travail_fiche_identité (2)").Name = "Fiche_identité"

Sheets("travail_fiche_identité").Visible = False
Sheets("BD").Visible = False
End Sub


Merci d'avance de votre aide

GAëlle