VBA Ajouter une forme ovale

Sub LeCercle()
  Dim Rayon As Single
  Rayon = 50
  ActiveSheet.Shapes.AddShape msoShapeOval, [C3].Left, [C3].Top, Rayon, Rayon
End Sub
VasteMonde