Coter une forme

Bonjour,

Dans le cadre de mon PFE, je souhaites coté une poutre en béton armé, celle se présente sous la forme d'un rectangle. Je vous joins une image qui sera certainement plus explicit.

Voila le code que j'ai pour l'instant qui permet de faire apparaitre la poutre en fonction de b, L et h :

Dim oShape_P As Shape

    'suppression des formes déjà existante

    On Error Resume Next
    ActiveSheet.Shapes("Poutre_long").Delete
    ActiveSheet.Shapes("Poutre_face").Delete
    On Error GoTo 0

    'création de la forme 1
    Set oShape = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 1050, 285, L * 15, h * 65)
    'nom de la forme 1
    oShape.Name = "Poutre_long"
    oShape.Fill.ForeColor.RGB = RGB(128, 128, 118)
    oShape.Line.ForeColor.RGB = RGB(128, 128, 118)
    Set oShape = Nothing

    'création de la forme 2
    Set oShape = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 1250, 285, b * 95, h * 65)
    'nom de la forme 2
    oShape.Name = "Poutre_face"
    oShape.Fill.ForeColor.RGB = RGB(128, 128, 118)
    oShape.Line.ForeColor.RGB = RGB(128, 128, 118)
    Set oShape = Nothing

End Sub
 

Merci d'avance pour votre aide.