Dim X As Integer, nbFichiers As Integer, Y As Integer
Dim Tableau() As String
Dim Direction As String
Application.ScreenUpdating = False
Direction = Dir("C:\Dossier\*.xls")
Do While Len(Direction) > 0
nbFichiers = nbFichiers + 1
ReDim Preserve Tableau(1 To nbFichiers)
Tableau(nbFichiers) = Direction
Direction = Dir()
Loop
If nbFichiers > 0 Then
Y = 7
For X = 1 To nbFichiers
If Tableau(X) <> ThisWorkbook.Name Then
With ActiveSheet
.Cells(Y, 1).Formula = "='C:\Dossier\[" & Tableau(X) & "]Nom de la feuille" & "'!" & "C21"
.Hyperlinks.Add Anchor:=.Cells(Y, 1), Address:="C:\Dossier\[" & Tableau(X) & _
"]Nom de la feuille" & "'!" & "C21", TextToDisplay:=Tableau(X)
End With
Y = Y + 1
End If
Next X
End If