salut
à tester sur excel vba : (matrice 3x3)
Sub transposée_matrice3()
Range("A1:C1").Select
Selection.Copy
Range("E1:E3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A2:C2").Select
Application.CutCopyMode = False
Selection.Copy
Range("F1:F3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A3:C3").Select
Application.CutCopyMode = False
Selection.Copy
Range("G1:G3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub