Tableau Dynamique (Fct Array)

Bonjour,

J'ai du mal a incrémenter un tableau (via la fonction array (il y peut-etre d'autres fonctions ??)) avec de nouvelle variable.

Pour que cela soit plus clair voici mon bout de code.

MonTableau = Array ("A1", "A2")
For Compteur = 1 To 5
MonTableau = Array(Array(MonTableau ), "B" & Compteur, "C" & Compteur)
Next

ActiveSheet.Range(Array(MonTableau)).Select

Meric d'avance

dim MonTableau
dim i as intinger
MonTableau=array("Salut","Bonjour","Hello")
for i =0 to 2
MonTableau(i)
next

C'est pas très catholique... mais ça marche....
@+ Sator