Private Sub UserForm_Initialize()
Dim tablo, i&, j&, k&, aux
With Sheets("Charges_2004")
tablo = .Range("a1:c" & .Cells(1, 1).End(xlDown).Row).Value
For i = 1 To UBound(tablo) \ 2
For j = 1 To 3
aux = tablo(i, j): tablo(i, j) = tablo(UBound(tablo) - i + 1, j): tablo(UBound(tablo) - i + 1, j) = aux
Next j
Next i
ListBox1.List = tablo
End With
End Sub