Erreur 1004 définie par l'application ou par l'objet

Bonjour, :(

Voilà, je n'y connais vraiment rien en VBA... moi je veux juste renommer mes feuilles à partir d'une cellule!
Je ne pensais pas que c'était aussi compliqué!

Quelqu'un peut il vraiment m'aider en m'expliquant pas à pas ce que je dois faire?
J'ai trouvé quelques réponses aux nombreuses questions que je me suis posé mais la dernière reste une "grosse prise de tête"!!!

"erreur définie par l'application ou par l'objet" lorsque je fais F5 en "pas détaillé" puis F8...

Bref, suis totalement perdue.... AU SECOURS!!!! :( :( :( :(
Par avance merci pour votre aide!

............

Sub RenommerFeuille()

Dim i As Integer
i = 1

Dim NombreFeuilles As Integer
NombreFeuilles = Worksheets.Count

While i <= NombreFeuilles

Sheets(i).Name = Replace(Sheets(i).Range("A2").Value, "/", "") ' Le nom de la feuille est renseigné dans la cellule G7 de la feuille active
i = i + 1

Wend

End Sub