Macro bouton associé à la position du bouton

Public WithEvents ButtonGroup As MSForms.CommandButton
Private Sub ButtonGroup_Click()
Dim Lig&, Fin&
Lig = ButtonGroup.TopLeftCell.Row
Fin = Cells(Lig + 3, "K").End(xlDown).Row 
Rows(Fin).Insert shift:=xlDown
Range(Cells(Fin - 1, "A"), Cells(Fin, "K")).FillDown
Cells(Fin + 1, "K").Formula = "=SUM(K" & Lig + 3 & ":K" & Fin & ")"
End Sub

Dim Buttons() As New clsX_Btn
Sub InitModClasse()
Dim Sh As Worksheet, Obj As OLEObject, ButtonCount%
Set Sh = Sheets("Feuil1") 'adapter selon besoin
Erase Buttons
For Each Obj In Sh.OLEObjects
    If TypeName(Obj.Object) = "CommandButton" Then
    ButtonCount = ButtonCount + 1
    ReDim Preserve Buttons(1 To ButtonCount)
    Set Buttons(ButtonCount) = New clsX_Btn
    Set Buttons(ButtonCount).ButtonGroup = Obj.Object
    End If
Next Obj
End Sub