Sub Test()
MsgBox TypeName(ActiveSheet.Shapes("Groupe 1").GroupItems("TextBox 1"))
MsgBox TypeName(ActiveSheet.Shapes("Groupe 1").GroupItems("TextBox 1").DrawingObject)
MsgBox ActiveSheet.Shapes("Groupe 1").GroupItems("TextBox 1").DrawingObject.Formula
End Sub