Sub ListerRepertoires()
Dim Cible As String, Dossier As String
Dossier = 'C:\\Documents and Settings\\michel\\dossier\\general\\excel'
If Right$(Dossier, 1) <> '\\' Then Dossier = Dossier & '\\'
Cible = Dir(Dossier & '*.*', vbDirectory)
Do Until Cible = ''
If Asc(Cible) <> 46 Then
If (GetAttr(Dossier & Cible) And &H10) = vbDirectory Then MsgBox Dossier & Cible
End If
Cible = Dir()
Loop
End Sub