72 valeurs minimales consécutives

Sub Bouton1_QuandClic()
Dim i As Integer
Dim j As Integer
Dim temp
Dim tablo As Variant

Range('c1:c72').ClearContents
tablo = Range('a1:a' & Range('a65536').End(xlUp).Row)

For i = 1 To UBound(tablo)
    For j = 1 To UBound(tablo, 1)
        If tablo(i, 1) < tablo(j, 1) Then
            temp = tablo(j, 1)
            tablo(j, 1) = tablo(i, 1)
            tablo(i, 1) = temp
        End If
    Next j
Next i

For i = 1 To 72
Range('c' & i) = tablo(i, 1)
Next i

End Sub