Public Function transpose(tablo)
Dim tablotranspose
Dim i As Long
Dim j As Long
ReDim tablotranspose(UBound(tablo, 2), UBound(tablo, 1))
For i = LBound(tablo, 2) To UBound(tablo, 2)
For j = LBound(tablo, 1) To UBound(tablo, 1)
tablotranspose(i, j) = tablo(j, i)
Next j
Next i
transpose = tablotranspose
End Function