Bonjour et bienvenu(e)
A tester
Sub AddRectangleWithText()
Set myDocument = Worksheets(1)
Set myRange = myDocument.Shapes.Range(1)
myRange.Fill.ForeColor.RGB = RGB(220, 105, 0)
'myDocument.Shapes.AddShape msoShapeOval, 50, 50, 50, 50
myDocument.Shapes.AddShape(msoShapeOval, 50, 50, 50, 50).Fill.Visible = msoFalse
End Sub