Combiner choix de répertoire et liste de répertoire

Bonjour,

A l'aide d'un code VBA trouvé sur ce forum, je peux lister les noms de fichiers d'un répertoire.
Mais ce code fait référence au répertoire dans lequel se trouve le fichier.

Cependant, je ne souhaite pas lister forcément les fichiers du répertoire courant. Dans ce cas, comment combiner le code ci-dessous de "choix d'un répertoire" avec le code permettant de lister les fichiers ?

Sub Dossier()
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ActiveWorkbook.Path & "\"
.Show
If .SelectedItems.Count > 0 Then
choixDossier = .SelectedItems(1)
Else
choixDossier = ""
End If
End With
MsgBox choixDossier
End Sub

Cliquez pour agrandir...

Je joins mon fichier actuel réduit au minimum pour plus de clarté.

Merci,
Aurore