Comment adapter sa case à cocher sous excel?

Sub CreationCheckBox()  
    Dim Obj As OLEObject  
    Dim Cellule As Range  

For Each Cellule In Range("A1:A20")  
    With Cellule  
        Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _  
            DisplayAsIcon:=False, Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)  
     End With  
Next Cellule 
  
End Sub

Option Explicit

'd 'après '@+Thierry sur XLD
'installe des checkbox sur une feuille
Sub generer_cases_a_cocher()
Dim Chekbox As OLEObject
Dim lig As Integer, col As Byte, lig_fin As Integer
Dim Target As Range

'parametres
lig = 2 'ligne de départ
lig_fin = 50 'ligne fin
col = 2 'colonne d'implantation

Do Until lig = lig_fin + 1
    Set Target = ActiveSheet.Cells(lig, col)
        Set Chekbox = ActiveSheet.OLEObjects. _
                    Add(ClassType:="Forms.CheckBox.1", _
                    Left:=Target.Left, Top:=Target.Top, Width:=Target.Width, Height:=Target.Height)
    lig = lig + 1
Loop
End Sub