Sub Kopi()
Dim CheminSource, CheminDestination As String
CheminDestination = 'C:\\Documents and Settings\\xxx\\Mes documents\\Zw Alex'
CheminSource = 'C:\\Documents and Settings\\xxx\\Bureau\\Classeur2.xls'
Dim Fil, Fich, FichColl, FichSys, fl
Set FichSys = CreateObject('Scripting.FileSystemObject')
Set Fil = FichSys.GetFolder(CheminDestination)
Set FichColl = Fil.SubFolders
'Pour afficher les dossiers dans 1 Msgbox
For Each Fich In FichColl
fl = fl & Fich.Name
fl = fl & vbCrLf
Next
MsgBox fl
'Copie du fichier dans les sous répertoires
For Each Fich In FichColl
FileCopy CheminSource, CheminDestination
Next
End Sub