Salut Irulan,
Ma suggestion serait basée sur une insertion de formes automatiques, comme ceci :
Sub Cercles()
Dim I As Integer, Taille As Single, Gauche As Single
Gauche = 39
For I = 1 To 5
Taille = Range(Chr(64 + I) & 1)
ActiveSheet.Shapes.AddShape(msoShapeOval, Gauche - (Taille / 2), 50, Taille, Taille).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 32
Gauche = Gauche + 78
Next
Range("E10" ).Select
End Sub
Ce code lit les données dans les cellules A1 à E1 puis trace les cercles correspondants.
Il s'agit d'une macro à placer dans un module de code.
A+
Horatio