code vba

BONJOUR

j ai un probleme sur le code , il se bloque a la ligne 133 je ne sais pas quoi faire , alors que j aimerais qu il aille au moins a 300
VOICI LE CODE Sub Bouton2_QuandClic()
Dim c As Range
Dim tablo()
Dim x As Byte, i As Byte, j As Byte
Dim temp As Byte


For Each c In Range('aa7:aa' & Range('aa65536').End(xlUp).Row)
x = 1
ReDim tablo(1 To x)

For i = 0 To 4
Select Case c.Offset(0, i)
Case 1, 2, 3
ReDim Preserve tablo(1 To x)
tablo(x) = c.Offset(0, i)
x = x + 1

End Select
Next i

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

c.Offset(0, 15) = Join(tablo, '')
Erase tablo
Next c

End Sub

merci de votre aide
bono