'Sub test01()
Sub chercheFichiersFermesV03()
Dim X As Integer, nbFichiers As Integer, Y As Integer
Dim Tableau() As String
Dim Direction As String
Dim Feuille As String
Application.ScreenUpdating = False
Direction = Dir("C:\Fichiers Excel\test\*.xls")
While Len(Direction) > 0
nbFichiers = nbFichiers + 1
ReDim Preserve Tableau(1 To nbFichiers)
Tableau(nbFichiers) = Direction
Direction = Dir()
Loop
If nbFichiers > 0 Then
For X = 1 To nbFichiers
If Tableau(X) <> ThisWorkbook.Name Then
Y = Y + 1
With ActiveSheet.Cells(Y, 1)
.Range("E2").Formula = "='C:\Fichiers Excel\test\[" & Tableau(X) & "]"[I][COLOR=Blue] & ActiveSheet.Name & [/COLOR][/I]"'!" & "A662"
End With
End If
Next X
End If