VBA: ouvrir classeurs dans différents dossiers

Sub ListFiles()
'[URL="http://support.microsoft.com/default.aspx?scid=kb;en-us;74493"]source du code[/URL]
Dim Chemim As String
Chemin = "C:\Temp\"
Extension = "*.*"
Application.ScreenUpdating = False
Cells(1, 1).Activate
    F = Dir(Chemin & Extension)
        Do While Len(F) > 0
            ActiveCell.Formula = F
            ActiveCell.Offset(1, 0).Select
        F = Dir()
    Loop
Application.ScreenUpdating = False
End Sub
            
Sub test()
'Dans l'aide VBA, j'aurai regarder dedans dès le départ
' Affiche les noms dans C:\ représentant des dossiers.
MyPath = "c:\"    ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory)    ' Extrait la première entrée.
Cells(1, 1).Activate
Do While MyName <> ""    ' Commence la boucle.
    ' Ignore le dossier courant et le dossier
    ' contenant le dossier courant.
    If MyName <> "." And MyName <> ".." Then
        ' Utilise une comparaison au niveau du bit pour
        ' vérifier que MyName est un dossier.
        If (GetAttr(MyPath & MyName) _
            And vbDirectory) = vbDirectory Then
            'Debug.Print MyName    ' Affiche l'entrée uniquement si elle
            ActiveCell.Formula = MyName
            ActiveCell.Offset(1, 0).Select
        End If    ' représente un dossier.
    End If
    MyName = Dir    ' Extrait l'entrée suivante.
Loop

End Sub