Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("H6:H65536")) Is Nothing _
And Application.CountIf(Intersect(Target.EntireColumn, Rows(5)), "Nom de fichier") = 0 Then Exit Sub
Dim i As Long, j As Integer
Application.ScreenUpdating = False
Application.EnableEvents = False
Range("H6:H65536").ClearContents
For i = 6 To Range("D65536").End(xlUp).Row
For j = Cells(i, 256).End(xlToLeft).Column To 9 Step -1
If Cells(5, j) = "Nom de fichier" And Cells(i, j) <> "" Then Exit For
Next
If j > 8 Then Me.Hyperlinks.Add Anchor:=Cells(i, 8), _
Address:=Cells(i, j).Hyperlinks(1).Address, TextToDisplay:=Cells(i, j).Text
Next
Application.EnableEvents = True
End Sub