Modification d'un UserForm

Bonjour à tous,

Dans ce lien :

https://forum.excel-pratique.com/excel/deplacement-de-fichiers-jpg-avec-un-debut-de-nom-commun-t78622.html je me suis retrouvé confronté à un problème que je n'ai pas su résoudre. N'arrivant pas à trouver de solution j'ai finis par trouver sur internet un UserForm me faisant quasiment tout ce que je voulais (fichier joint). Mon seul hic est le bout de code suivant

'Choix du répertoire source
Private Sub CommandButton1_Click()
Dim objShell As Object, objFolder As Object

    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)

If objFolder Is Nothing Then
    MsgBox "Abandon opérateur", vbCritical, "Annulation"
    End
Else
    ElementsRepertoire objFolder.ParentFolder.ParseName(objFolder.Title).Path
End If
End Sub

Mon répertoire source est toujours le même, et ce que je voudrais faire, c'est de pouvoir lister tous mes fichiers de mon répertoire lorsque je clique sur le bouton et que cela me les affiche dans ma ListBox et en me mettant le lien. Le programme original fait déjà les deux derniers points.

J'ai donc essayé ce code pour remplacer le fait d'aller chercher le répertoire par juste lister mes fichiers

Private Sub CommandButton2_Click()
 Dim Dossier As Object, Fichier As Object
 Dim Chemin As String
 Dim I As Long
 'Chemin du dossier à analyser (à adapter au besoin)
 Chemin = "Z:\Rapport de microsection\" & TextBox1.Text
 'Définition de la variable
 Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
 ' Boucle sur les fichiers

 For Each Fichier In Dossier.Files
Label2 = Label2 & Left(Fichier.Name, InStr(Fichier.Name, ".") - 1) & vbLf
 Next
End Sub

Mais j'avoue que le code original est un peu trop compliqué pour moi et je n'arrive pas à faire marcher la macro comme je le voudrais.

Si quelqu'un pouvait jeter un œil et m'aider ce serait vraiment très gentil

Merci d'avance