Sub Tri()
Dim tablo, L%, i%, j%
tablo = Worksheets("Pippo").Range("C2:G98")
For L = 1 To 97
For i = 1 To 5
For j = i + 1 To 5
If tablo(L, i) < tablo(L, j) Then
Buffer = tablo(L, i): tablo(L, i) = tablo(L, j): tablo(L, j) = Buffer
End If
Next j
Next i
Next L
Sheets("Pippo").[C2].Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
End Sub