Sub Rosace()
ActiveSheet.DrawingObjects.Delete
Xcentre = 750: Ycentre = 250: R = 220: Pas = 12
For I = 0 To 360 Step Pas
Rad# = WorksheetFunction.Radians(I): X0@ = Xcentre + R * Sin(Rad#): Y0@ = Ycentre + R * Cos(Rad#)
For I2 = I + Pas To 360 Step Pas
Rad# = WorksheetFunction.Radians(I2): X@ = Xcentre + R * Sin(Rad#): Y@ = Ycentre + R * Cos(Rad#)
With ActiveSheet.Shapes.AddLine(X0, Y0, X, Y).Line
.DashStyle = msoLineSolid 'ligne
.ForeColor.RGB = RGB(0, 140, 0) 'mauve=RGB(120, 0, 120) vert=RGB(0, 180, 0)
End With
Next: Next
End Sub