macro sous excel

Tiens j'ai gribouillé va et ca marche...
qu'est ce que t'en pense??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Sub CommandButton1_Click()
Dim NomRepertoire(100) As String
 
' 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.
i = 1
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
            NomRepertoire(i) = myname
        End If    ' représente un dossier.
    End If
    myname = Dir    ' Extrait l'entrée suivante.
    i = i + 1
Loop
For j = 1 To i
Cells(j, 2) = NomRepertoire(j)
Next j
End Sub

Merci pour ton aide!!