Sub Macro1()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 20, 20, 270, 270).Select
' ------en appliquant les coefficients trouvé sur mon ESPSON STYLUS COLOR
' ------mesure lue : largeur 98mm, Hauteur 94mm
KH = 270 / 98
KV = 270 / 94
' -------pour obtenir un carré de 100mm x 100mm
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 40, 60, 100 * KH, 100 *KV).Select
'-------pour obtenir un rectangle de 120mm x 60mm
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 60, 100, 120 * KH, 60 *KV).Select
End Sub