macro positionnant checkboxe

Sub CHCKB_Add()

Dim k As String, Ctrl As Shape
k = Application.InputBox("Saisir un nombre", "Nombre de Controle", , , , , , 1)
If k = 0 Or k = "" Then Exit Sub

For i = ActiveCell.Row To ActiveCell.Row + k - 1
    With Cells(i, ActiveCell.Column)
        Set Ctrl = ActiveSheet.Shapes.AddFormControl(xlCheckBox, .Left, .Top, .Width, .Height)
    End With
        With Ctrl
          .TextFrame.Characters.Text = "ChckB " & i
          .ControlFormat.LinkedCell = Cells(i, ActiveCell.Column + 1).Address
          .ControlFormat.Value = 0
          '.Placement = xlMoveAndSize ???
        End With
Next i
End Sub