Sub LeCercle()
Dim s As Shape, x#, y#, c As Range, d#
'efface toutes les formes des colonnes A:D
For Each s In ActiveSheet.Shapes
If s.TopLeftCell.Column < 5 Then s.Delete
Next
'creation des cercles
x = [C2].Left
y = [C2].Top
For Each c In Range("F2", Cells(Rows.Count, 6).End(xlUp))
If c <> "" Then
d = c / 5 'rapport à adapter
With ActiveSheet.Shapes.AddShape(msoShapeOval, x - d / 2, y, d, d)
.Fill.ForeColor.RGB = RGB(56, 93, 138)
.Fill.Visible = msoTrue
.Line.ForeColor.RGB = RGB(56, 93, 138)
End With
y = y + d + 10
End If
Next
End Sub