Bonjour à tous le monde!!

J'aimerais afficher les valeurs d'un tableau dans une message box.Ce que j'arrive à peu près à faire.Mais je n'ai que 3 valeurs dans mon tableau et j'aimerais indiquer à l'ordi qu'il s'arrête lorsque les 3 valeurs sont passées.
Donc comment faut-il faire s'il vous plaît?
Merci et bonne journée
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub Test_V05()
 
    Dim tableau(20) As Voiture 'tableau(20) est le nb de valeurs que l'on va mettre dedans
    Dim i As Integer
 
 
    'Remplissage de 1ere ligne Tableau
    tableau(0).Couleur = "Rouge"
    tableau(0).Cylindree = 2000
    tableau(0).anneeAchat = #4/21/2004#
 
    'Remplissage de 2ieme ligne Tableau
    tableau(1).Couleur = "Bleu"
    tableau(1).Cylindree = 1500
    tableau(1).anneeAchat = #3/25/2001#
 
    'Remplissage de 3ieme ligne Tableau
    tableau(2).Couleur = "Rose"
    tableau(2).Cylindree = 2500
    tableau(2).anneeAchat = #8/12/1999#
 
    'Lecture contenu tableau
 
    Do While Not i = UBound(tableau)
 
        MsgBox "Cette voiture " & tableau(i).Couleur & " a une cylindrée de " & _
        tableau(i).Cylindree & " cc, année " & tableau(i).anneeAchat
        i = i + 1
    Loop
        MsgBox "Fin du tableau"
 
End Sub