Insertion automatique de cases à cocher

Sub Création_CaseàCocher()
    ActiveSheet.DrawingObjects.Delete
    'Application.ScreenUpdating = False
    Col = 1
    For Lig = 2 To 13
        PosX = Cells(Lig, Col).Left
        PosY = Cells(Lig, Col).Top
        Largeur = Cells(Lig, Col).Width
        Hauteur = Cells(Lig, Col).Height
        With ActiveSheet.CheckBoxes.Add(PosX, PosY, Largeur, Hauteur)
            .LinkedCell = Cells(Lig, Col).Address
            .Characters.Text = "Nom " & Format(Lig - 1, "00")
        End With
    Next Lig
    'Application.ScreenUpdating = True
    Range("A1").Select
End Sub