Dessiner et placer automatiquement des formes sur une feuille

Je possède un tableau de 4 colonnes X/Y/taille(L,l)/ID et un bouton dans ma première feuille

Je voudrais avec un bouton, dessiner dans ma deuxième feuille une série

de forme de dimension (L,l) de position X/Y avec un texte verticale

correspondant à l'ID.

ça devrait ressembler à ça

Feuille 1

Feuille 2

Je suis tombé sur ce post qui me donne une partie de ma solution pour placer les formes.

https://forum.excel-pratique.com/excel/deplacement-des-formes-creees-a-l-endroit-du-clic-181979#p112...

Mais il me manque l'identification de la forme et la rotation de 90°

Merci pour votre aide

Bonjour david vincent,

Sub CreateForme()
Dim shTmp As Shape
    Set shTmp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 420.75, 134.25, 178.5, 120.75)
    ' Texte centré
    With shTmp.TextFrame2
      .VerticalAnchor = msoAnchorMiddle
      .HorizontalAnchor = msoAnchorCenter
    End With
    ' et rotation à 270°
    shTmp.TextFrame2.Orientation = msoTextOrientationUpward
    ' et le texte
    shTmp.TextFrame2.TextRange.Characters.Text = "5000"
    With shTmp.TextFrame2.TextRange.ParagraphFormat
      .FirstLineIndent = 0
      .Alignment = msoAlignLeft
    End With
End Sub

A adapter à tes dimensions, si tu veux personnaliser le nom de la forme, tu peux ajouter => shTmp.name = "xxxx"

après le Set shTmp = ...

PS : l'enregistreur de macro est pas mal quand on cherche à programmer un "truc" que l'on ne sait pas écrire. La macro générée est à retoucher car il y a un certain abus (de mon point de vue) des .Select mais ça peut aider grandement.