Sub Les10premiers()
tablo = Range("B1:B50") ' extaction matrice à trier pour aller plus vite
For i = 2 To 50 ' taille du tablo
For j = 2 To 50
If tablo(j, 1) <= tablo(i, 1) Then ' si >, on permute M(i) et M(j)
Buffer = tablo(j, 1) ' on passe M(j) dans buffer
tablo(j, 1) = tablo(i, 1) ' on tansfert M(i) dans M(j)
tablo(i, 1) = Buffer ' on tranfert buffer
End If
Next j
Next i
For i = 2 To 6 ' On ressort les 5 premiers de la liste.
Cells(i, 4) = tablo(i, 1) ' Mis arbitrairement en colonne D
Next i
End Sub