Nommer une forme libre qu'on vient de créer

Bonjour, je cherche depuis un moment à nommer une forme libre que je viens de créer. J'ai essayé plusieurs choses mais rien n'a fonctionné. Si quelqu'un a la solution cela serait avec plaisir. Même si je suis sûr qu'elle est très simple! Merci beaucoup.

Voici mon code :

Dim FB As FreeformBuilder
' Propriétés de la forme libre
Set FB = ActiveSheet.Shapes.BuildFreeform _
(msoEditingAuto, 390, 60)
FB.AddNodes msoSegment, msoEditingAuto, 390, 120
FB.AddNodes msoSegment, msoEditingAuto, 390, 180
FB.AddNodes msoSegment, msoEditingAuto, 360, 180
FB.AddNodes msoSegment, msoEditingAuto, 330, 180
FB.AddNodes msoSegment, msoEditingAuto, 330, 120
FB.AddNodes msoSegment, msoEditingAuto, 330, 60
FB.AddNodes msoSegment, msoEditingAuto, 360, 60
FB.AddNodes msoSegment, msoEditingAuto, 390, 60
' Dessinez la forme libre comme une forme
Set Sh = FB.ConvertToShape

Bien cordialement

bonjour

Set Sh = FB.ConvertToShape
sh.Name = "Azerty_01"

Tout simplement ! C'est fou je pensais pourtant avoir déjà essayé ça !

Merci beaucoup et bonne continuation