Sub Macro6()
'
' Macro6 Macro
' Macro enregistrée le 22/10/2006 par Admin
'
'
ActiveSheet.OptionButtons.Delete
ActiveSheet.GroupBoxes.Delete
i = 1
j = 36
While i < 60
ActiveSheet.OptionButtons.Add(59.25, j, 24, 17.25).Select
Selection.Characters.Text = ""
OptionButtons.Value = True
ActiveSheet.OptionButtons.Add(89.25, j, 24, 17.25).Select
Selection.Characters.Text = ""
ActiveSheet.OptionButtons.Add(119.25, j, 24, 17.25).Select
Selection.Characters.Text = ""
With Selection
.Value.xlOff
.LinkedCell = "D" & "Sheet1!" & .Cells(i, 4).Address
.Display3DShading = False
End With
ActiveSheet.GroupBoxes.Add(45.75, j - 2, 114, 34.5).Select
GroupBoxes.Text = ""
i = i + 1
j = j + 30
Wend
End Sub