XL 2010 Creation toupie (spinbutton) via macro

[ThoWmas31]

bonjour a tous,

je cherche actuellement a réaliser une macro pour crée des toupies en "masses" sur toutes une colonne avec Une ou 2 petites subtilité

j'ai recupéré un bout de macro puis modifié :

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

Pour l'instant la création se passe bien mais je n'arrive pas à édité la cellule liée. et je voudrais que la toupie qui est en E8 par exemple modifie la valeurs en D8 et on continue avec E9 modifie D9

pouvez vous m'aider ?