Lier zone texte dans une cellule

"Serait-il possible de lier la zone texte dans la cellule A1?"

• tu veux insérer la zone de texte à l'intérieur de la cellule ?
• tu veux recopier le contenu de la zone de texte dans la cellule ?
• tu veux déplacer la zone de texte quand tu fais glisser ta cellule à un autre emplacement ?
• tu veux sélectionner la zone de texte quand tu cliques dans la cellule ?
• autre chose ?

Sub ZoneTextedansA1()
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 60 * 72 / 25.4, 30 * 72 / 25.4).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
        "Lier la zone de texte " & Chr(13) & "(Zone Texte 1)" & Chr(13) & "à la cellule A1"
Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle
Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignCenter
With Selection.ShapeRange.Fill
    .Visible = msoTrue
    .ForeColor.ObjectThemeColor = msoThemeColorAccent5
    .ForeColor.TintAndShade = 0
    .ForeColor.Brightness = 0.6000000238
    .Transparency = 0
    .Solid
End With
Selection.Placement = xlFreeFloating
Columns("b:b").ColumnWidth = 6 * 5.2834
Rows("1:1").RowHeight = 3 * 28.5
Range("A2").Select
End Sub