debug.print de tableau à 2 dimensions [Résolu]

[hector2]

Bonjour,
j'aimerais afficher dans la fenêtre d'exécution une matrice (tableau à 2 entrées, de dimension quelqconque nxp)
de façon rectangulaire:

5 4 3 2 1
5 4 8 9 7
1 2 3 6 5
4 2 8 9 3

y a t'il un moyen simple?
Merci!

[random]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub imptab(x() As Variant)
Dim ligne As Long
Dim colonne  As Long
Dim n As Variant
Dim maligne As String
For ligne = LBound(x, 1) To UBound(x, 1)
maligne = ""
For colonne = LBound(x, 2) To UBound(x, 2)
maligne = maligne & x(ligne, colonne) & " "
Next colonne
Debug.Print Left(maligne, Len(maligne) - 1)
Next ligne
End Sub

[hector2]

Merci (sisi elle est belle! )