'---- Tri des lignes du tableau
ReDim Vtmp(1 To DerCol - 1) 'Tableau tempo
' Boucle sur chaque ligne du tirage pour remplir V pour le tri
For i = 1 To DerLig
' Boucle sur les colonnes du tirage
For j = 2 To DerCol
Vtmp(j - 1) = Vals(i, j)
Next j
' Tri de V
Qsort Vtmp, 1, DerCol - 1
' On remplace les valeurs non triées par les valeurs triées
For j = 2 To DerCol
Vals(i, j) = Vtmp(j - 1)
Next j
Next i
' Écriture du tableau trié sur la feuille
xrg.Value = Vals