boucle pour effecter chaque valeur d'un tableau à chaque cellule

[gaet]

Voila j'ai créé une macro qui construit un tableau mais le problème c'est que je suis obligé d'écrire ceci : tableau(1,1) = range("$a$1")
tableau(1,2) = range("$b$1")
et ainsi de suite
pour affecter chaque valeur du tableau aux cellules correspondantes.
Si quelqu'un connait une boucle ou autre chose pour effectuer ceci plus rapidement, répondez moi!

Merci d'avance.

 

[Roland]

Salut Gaet

dim ndcellules as integer

For i=1 to nbcellules
tableau(1,i)=cells(1,i)
next i

A++