VBA - Alimenter Combobox par des noms de fichier

J'ai pris celui de Dan et je l'ai modifié légèrement pour ne pas passer par l'étape de noter les noms des dossier dans une feuille :

Dim FDossier As Object
Dim chemin As String
Dim i

chemin = "O:\02-DT-PROJETS\BE-Projet etude\"
i = 1
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(chemin)
    For Each FDossier In Dossier.SubFolders
    Sheets("Feuil1").ComboBox2.AddItem FDossier.Name
    Next FDossier
End Sub

Encore merci !

Cordialement,