...
With Application.FileSearch
.NewSearch
.LookIn = 'C:\\Documents and Settings\\michel\\dossier\\general\\excel'
.Filename = '*.*'
.SearchSubFolders = True
.Execute
ProgressBar1.Max = .FoundFiles.Count
For j = 1 To .FoundFiles.Count
Label1 = j
'ou
ProgressBar1.Value = J
'
'la suite de ma macro
'
Next j
End With
...