insertion objet

Sub addshapetocell()
dimensions = InputBox("Saisir la hauteur ; la largeur", "Séparateur point-virgule")
haut = Left(dimensions, InStr(1, dimensions, ";") - 1)
lrg = Right(dimensions, Len(dimensions) - 1 - Len(haut))
Set my_shape = ActiveSheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Top, haut, lrg)
End Sub

Sub addshapetocell_II()
d = InputBox("Saisir la hauteur ; la largeur", "Séparateur point-virgule")
Set my_shape = ActiveSheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Top, Split(d, ";")(1), Split(d, ";")(0))
End Sub