Encore un souci avec une Macro

Voilà j'ai cette Macro et le résultat du tri se place en colonne B je voudrai qu'il soit en C

Merci de M'aider

Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim i As Byte, j As Byte, k As Byte
Dim temp

tablo = Range("a1:a" & Range("a65536").End(xlUp).Row)
ReDim Preserve tablo(1 To UBound(tablo), 1 To 2)

For i = 1 To UBound(tablo)
Randomize
tablo(i, 2) = Rnd
Next i

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


For i = 1 To UBound(tablo)
Cells(i, 2) = tablo(i, 1)
Next i



End Sub