Bonjour, une macro peut effectivement récupérer le nombre de caractères contenu dans votre Form "Rectangle" et renvoyer
le chiffre obtenu dans une cellule.
Exemple renvoi du nombre de caractères dans la cellule D1
Sub Macro1 ()
Range("D1").Value = Len(Shapes("Rectangle 1").DrawingObject.Text)
End Sub