Dim i As Integer, j As Integer
Dim temp1 As String, temp2 As String
For i = 1 To UBound(ListeDoc, 1)
For j = i To UBound(ListeDoc, 1)
If ListeDoc(i, 1) > ListeDoc(j, 1) Then
temp1 = ListeDoc(i, 1)
temp2 = ListeDoc(i, 2)
ListeDoc(i, 1) = ListeDoc(j, 1)
ListeDoc(i, 2) = ListeDoc(j, 2)
ListeDoc(j, 1) = temp1
ListeDoc(j, 2) = temp2
End If
Next j
Next i