transferer un tableau VBA vers une feuille de calcul

J'aimerai faire la même chose que dans cette discussion mais attribuer ma plage de cellules Excel "Dynamiquement", car la taille de mon tableau VBA va bouger à chaque utilisation de mon programme.

Bonjour,

Un petit exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Test()   Dim Tbl() Dim I As Integer Dim J As Integer   ReDim Tbl(1 To 10, 1 To 20) '10 lignes par 20 colonnes   'rempli le tableau de valeurs sans importances For I = 1 To UBound(Tbl, 1)   For J = 1 To UBound(Tbl, 2)   Tbl(I, J) = I + J   Next J, I   'inscrit le tableau dans la feuille à partir de A1 : Cells(1, 1) Range(Cells(1, 1), Cells(UBound(Tbl, 1), UBound(Tbl, 2))) = Tbl   End Sub

---