Sub generer_cases_a_cocher()
Dim spinbutton As OLEObject
Dim lig As Integer, col As Byte, lig_fin As Integer
Dim Target As Range
'settings
lig = 6 'ligne de départ
lig_fin = 8 'ligne fin
col = 6 'colonne d'implantation
Do Until lig = lig_fin + 1
Set Target = ActiveSheet.Cells(lig, col)
Set spinbutton = ActiveSheet.OLEObjects. _
Add(ClassType:="Forms.spinbutton.1", _
Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
Range("E8").Value = SpinButton1.Value
lig = lig + 1
Loop
End Sub