Function Transpose(Ttk As Variant) As Variant ' Auteur P56
Dim T As Variant, i As Long, j As Long
ReDim T(LBound(Ttk, 2) To UBound(Ttk, 2), LBound(Ttk, 1) To UBound(Ttk, 1))
For i = LBound(Ttk, 2) To UBound(Ttk, 2)
For j = LBound(Ttk, 1) To UBound(Ttk, 1)
T(i, j) = Ttk(j, i)
Next j
Next i
Transpose = T
End Function