Sub Test()
Columns(1).Clear
Chemin = "C:\"
Set Dossier = CreateObject("Scripting.FileSystemObject").getFolder(Chemin)
For Each X In Dossier.SubFolders
i = i + 1
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=X.Path, TextToDisplay:=X.Path
Next
End Sub