Cases à cocher automatiques

Private Sub Workbook_Open()
Dim chemin$, fichier$, lig&, fich$
Feuil1.Activate 'CodeName de la feuille à adapter
chemin = "C:\toto\" 'à adapter
fichier = "blabla*.xls*" 'à adapter
lig = 2 '1ère ligne à remplir, à adapter
[A2:A10000].Clear 'RAZ, à adapter
fich = Dir(chemin & fichier) '1er fichier du dossier
While fich <> ""
  Cells(lig, 1).Hyperlinks.Add Cells(lig, 1), chemin & fich, TextToDisplay:=fich
  lig = lig + 1
  fich = Dir
Wend
End Sub

Private Sub Workbook_open()


Dim Fich As String, Ctr As Long
Dim Box As CheckBox


For Each Box In ActiveSheet.CheckBoxes
 Box.Delete
Next Box
    
    
    With Sheets(1)
        Ctr = 6
        Fich = Dir("d:\personal\guillaume.thiebaut\desktop\Projets annexes\converg*.xls")
        Do While Fich <> ""
            Ctr = Ctr + 2
            'Création de la case à cocher (largeur 100, hauteur 20, à 10 points du bord)
            Set cb = .CheckBoxes.Add(10, .Cells(Ctr, 1).Top, 150, 20)
                cb.Caption = Fich
                cb.Value = 0
                cb.LinkedCell = .Cells(Ctr, 3).Address
            Fich = Dir
        Loop
    End With
End Sub

Fich = Dir(Me.Path & "\*.xls")