Nommer les feuilles à partir d'une cellule

Bonjour,

Je veux nommer les feuilles d'un classeur en fonction du contenu d'une cellule de la feuille (toujours la même cellule dans chaque feuille : D7).

J'essaie de faire fonctionner la macro que j'ai trouvée un jour sur ce forum, en vain.

Voici la macro :

Sub Nommer_Feuilles()

Dim Feuille As Worksheet

Application.ScreenUpdating = False

For Each Feuille In Worksheets

With Feuille
Feuille.Name = Feuille.Cells(7, D).Value
End With
Next Feuille

Application.ScreenUpdating = True

End Sub

Selon le débogage, il s'agirait d'une erreur dans la ligne :
Feuille.Name = Feuille.Cells(7, D).Value

Merci à celui qui l'indiquera où est l'erreur !