XL 2010 Compter le nombre de shapes dans une feuille... sujet

Bonjour,
j'ai essayé ceci en dessous mais j'ai comme résultat
#VALUE! alors que j'ai bien 5 shapes("Nuage")


Function nombre_Nuage() As Integer
Dim sh As Shape
For Each sh In Feuil1.Shapes
If Name = "Nuage" Then nombre_Nuage = nombre_Nuage + 1
Next sh
End Function

Merci d'avance pour votre aide,
Claudy