VBA Erreur 1004

Bonjour,

j'ai un problème qui vient de se déclarer alors que cela fonctionnait
jusque là. Il s'agit de renommer toutes les feuilles d'un classeur en fonction du contenu d'une cellule

Voici le code:

Public Sub nomfeuil()
Dim cpt As Integer
Dim Limite As Integer

Limite = Sheets.Count
cpt = 1
Do While cpt <= Limite

Sheets(cpt).Name = Sheets(cpt).Range("A1")
cpt = cpt + 1
Loop

End Sub

C'est la ligne en gras qui apparait en jaune.

Qu'est ce qui a pu déclencher le problème ?

Par avance merci