'On colorie le fond
With Sheets("Liste de documents")
If UBound(tIndex) = 1 Then
.Cells(tIndex(1) + 2, "F").Interior.ColorIndex = 24
Else:
For i = LBound(tIndex) To UBound(tIndex)
.Cells(tIndex(i, 1) + 2, "F").Interior.ColorIndex = 24
Next i
End If
End With
'On va exporter les valeurs
With Sheets("Zone de recherche")
.ListBox1.List = tListBox
.[a16].Resize(UBound(tIndex), 7).Value = tListe
If UBound(tIndex) = 1 Then
.Hyperlinks.Add Anchor:=.Cells(15, "G"), Address:=tListe(1)
Else:
For i = LBound(tListe) To UBound(tListe)
.Hyperlinks.Add Anchor:=.Cells(i + 15, "G"), Address:=tListe(i, 7)
Next i
End If
End With