Dim Tableau()
Private Sub Test()
ReDim Tableau(1)
Tableau(0) = "Titi"
Tableau(1) = "Toto"
Test2
End Sub
Private Sub Test2()
Dim I As Integer
For I = LBound(Tableau) To UBound(Tableau)
MsgBox Tableau(I)
Next I
ReDim Preserve Tableau(2)
Tableau(2) = "Tutu"
For I = LBound(Tableau) To UBound(Tableau)
MsgBox Tableau(I)
Next I
Erase Tableau
End Sub