XL 2016 créer un macro pour rechercher un fichier sur explorateur

 ChDir "C:\Users\PC_PAPA\Desktop\XLD\"

Sub ChoixFichier()
    'La variable est de type Variant car elle peut prendre les valeurs :
        'Booleenne: (Vrai/Faux) quand l'utilisateur ne sélectionne rien, ou annule l'opération.
        'String: pour renvoyer le nom du fichier sélectionné.
    Dim Fichier As Variant

    ' Mettre ici le chemin désiré. Finir avec un "\"
    ChDir "C:\documentation\machine 1\"
   
    'Affiche la boîte de dialogue "Ouvrir" sur tous les fichiers xlsx.
    ' Supprimer le xlsx si on veut voir tous les fichiers. Par ex :
    ' Fichier = Application.GetOpenFilename("Tous les fichiers (*.*),*.*")
    Fichier = Application.GetOpenFilename("Tous les fichiers (*.xlsx),*.xlsx")

    'On sort si aucun fichier n'a été sélectionné ou si l'utilisateur
    'a cliqué sur le bouton "Annuler", ou sur la croix de fermeture.
    ' Sinon on ouvre le fichier
    If Fichier = False Then
        Exit Sub
    Else
        Workbooks.Open Filename:=Fichier
    End If
End Sub

Sub BoucleFichiers()
    Dim Chemin As String, Fichier As String, i As Integer
    ' Efface liste
    Range("A:A").ClearContents
    'Définit le répertoire contenant les fichiers, à modifier. ici fichiers sur écran.
    Chemin = "C:\Users\PC_PAPA\Desktop\"
    'Boucle sur tous les fichiers xls* du répertoire.
    Fichier = Dir(Chemin & "*.xls*")    ' Type xls, xlsx, xlsm, xlsb.
    'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers:
    'Fichier = Dir(Chemin & "*.*")
    i = 1
    Do While Len(Fichier) > 0
        ' Range le nom du fichier dans la colonne A
        Cells(i, 1) = Fichier
        i = i + 1  ' incrément N° de ligne
        Fichier = Dir()
    Loop
End Sub