Nom onglet égal une cellule de la feuille

Bonjour

Je continue le développement de mon fichier.

Comment en faisant une copie d'une feuille, renommer cette dernière par le nom repris dans une cellule

Ex. Sheets("RELEVES").Select

Sheets("RELEVES").Copy Before:=Sheets(1)

Sheets("xxx").Name = Sheets("xxx").[A1] 'c'est ici que cela bloque'

merci

Bonjour

Ton Sheets("xxx") correspond à quoi ?

En attendant ta réponse

Sub test()
  Sheets("RELEVES").Copy Before:=Sheets(1)
  ActiveSheet.Name = Sheets("RELEVES").Range("A1")
End Sub

Ce que je voulais

Merci