Microsoft 365 Saisir une valeur dans un Inputbox et l'afficher dans une Shape

Sub test()
    With ActiveSheet.Shapes("Myshape").OLEFormat.Object
        m = InputBox("entrez un texte à afficher dans le shape " & .Name, , .Text)
        If m <> "" Then .Text = m
    End With
End Sub

Sub test()
    With ActiveSheet.Shapes("Myshape").OLEFormat.Object
        m = InputBox("entrez un texte à afficher dans le shape " & .Name, , .Text)
        If m <> "" Then .Text = m & " ans"
    End With
End Sub

Sub a()
ActiveSheet.DrawingObjects("MaForme").Text = Val(Application.InputBox("Age :")) & " ans"
End Sub

Sub test()
    Dim X
    With ActiveSheet.DrawingObjects("mashape")
         X = InputBox("entrez un Montant:")
        [s6] = X
        .Text = Format(Val(Replace(X, ",", ".")), "#,##0.00 €")

        'ARRANGEMENT DU TEXTE

        '.Font.Name = "calibri"                 'Police de caractère
        '.Font.Color = RGB(255, 0, 0)           'couleur du texte
        '.Font.Size = 11                        'taille du texte
        '.Font.Bold = True                      'texte en gras (ou pas)
        '.Font.Italic = True                    'texte en italic(ou pas)
        '.HorizontalAlignment = xlCenter        'alignement horizontal du texte     (xlLeft ou XlRight ou Xl Center)
        '.VerticalAlignment = xlCenter          'alignement vertical du texte       (XlTop ou XlCenter ou XlBottom)

        'ARRANGEMENT DE LA SHAPE

        '.Interior.Color = vbYellow                 'couleur du fond de la shape
        '.ShapeRange.Line.ForeColor.RGB = vbRed     'couleur du contour de la shape
        '.ShapeRange.Line.Weight = 10               'épaisseur du contour de la shape
        '.ShapeRange.Adjustments.Item(1) = 0.1      'angle des coins arrondi de la shape
    End With
End Sub