créer une zone de texte avec macro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim NomBox As String

NomBox = "Box " & ActiveSheet.Shapes.Count

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, Target.Left, Target.Top, 50, 20).Name = NomBox
With ActiveSheet.Shapes(NomBox)
    .TextFrame.Characters.Text = "=" & Target.Address(RowAbsolute:=False, columnabsolute:=False)
    .Fill.Visible = msoFalse
    .Line.Visible = msoFalse
End With

End Sub

Private Sub Worksheet_SelectionChange(ByVal c As Range)
    Dim s As Shape
    On Error Resume Next
    ActiveSheet.Shapes("ZdT").Delete
    With c.Offset(, 1)
        Set s = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, .Left, .Top, 50, 20)
        s.Fill.Visible = msoFalse
        s.Select
        With Selection
            .AutoSize = True
            .Name = "ZdT"
            .Characters.Text = "= " & c.Address(RowAbsolute:=False, columnabsolute:=False)
            .Font.Bold = True
            .Font.ColorIndex = 3
            .PrintObject = False
        End With
        c.Select
    End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NomBox As String

NomBox = "Box " & ActiveSheet.Shapes.Count

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, Target.Left + 150, Target.Top, 50, 20).Name = NomBox
With ActiveSheet.Shapes(NomBox)
    .TextFrame.Characters.Text = Target.Value
    .Fill.Visible = msoFalse
    .Line.Visible = msoFalse
End With
End Sub