Je me reponds a moi-meme parce que j'ai trouvé le code sur le super site de frederic sigonneau (http://perso.wanadoo.fr/frederic.sigonneau/) et si ca peut interesser qq'un :
Sub ExamineDossier()
'Tim Barlow et Amr A Allam, mpep
Dim myPath As String
myPath = "C:\Data\" 'dossier à examiner
stgFilename = Dir(myPath & "*.xls")
Do While stgFilename <> ""
Workbooks.Open Filename:=myPath & stgFilename
'
'traitement ici
'
stgFilename = Dir()
Loop
End Sub
@+