Lien entre connecteurs et zone de texte

Bonjour à tous

J'ai un petit problème avec mon code ci-dessous. Je souhaite le modifier afin que lorsque je click sur une zone de texte (dans mon code je click sur le CommandButton1), tous les connecteurs liés à la zone de texte en question(qui sont initialement transparents) apparaissent.
Il manque à mon code une itéraction sur les zones de textes mais je n'ai pas encore trouvé .
Merci de m'aider
et merci d'être indulgent je suis débutante...


Private Sub CommandButton1_Click()
Dim x As Worksheet
Set x = ActiveWorkbook.ActiveSheet

Dim y As Shapes
Set y = x.Shapes 'tableau de shape
u = y.Count ' nbr de shape

Dim z As Shape
For i = 1 To u
Set z = y(i) ' z est le i ieme shape ....

ActiveSheet.Shapes('AutoShape 5').Select
'(c'est ici que je souhaite modifier :
je souhaite selectionner tous les connecteurs liés à une zone de texte x au lieu de spécifier que je selectionne le connecteur 'AutoShape 5')


Selection.ShapeRange.Line.DashStyle = msoLineSolid

Next

Dim a As Shape
Set a = ActiveSheet.Shapes('Text Box 24')
Call CommandButton2_Click

End Sub