Insertion de forme automatique

Bonjour,

J'aimerai insérer des formes rectangulaire automatique dans une feuille excel. L'utilisateur rentre la longueur puis la largeur dans deux cellules distinctes. Sur le clique d'un bouton ou directement après la saisie un rectangle doit se créer. Lorsque j'écris ce code ça ne marche pas. Les unités? le système de coordonnées ? je sais pas ...

Sub rectangle()

Dim a As Integer 'Longueur plaque

Dim b As Integer 'Largeur plaque

Dim x1, x2, y1, y2 As Integer

a = Range("B11").Value

b = Range("C11").Value

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, b, a, 0). _

Select

End Sub

Bonjour,

Sub rectangle()
    Dim a!, b!
    a = Range("B11").Value
    b = Range("C11").Value
    ActiveSheet.Shapes.AddShape msoShapeRectangle, 0, 0, a, b
End Sub