' *** Test :

Dim MonChiffre As Byte 
Dim MaVar() As String 

MonChiffre = 5 

ReDim MaVar(1 To MonChiffre) 

MaVar(1) = "Ta première valeur" 
MaVar(2) = "Ta seconde valeur" 
MaVar(3) = "Ta troisième valeur" 
MaVar(4) = "Ta quatrième valeur" 
MaVar(5) = "Ta cinquième valeur" 

' *** si tu as stocké tes 5 éléments et que tu souhaites en rajouter
'      d'autres, tout en préservant les 5 valeurs, il faut utiliser "Preserve" :

MonChiffre = 10 

ReDim Preserve MaVar(1 To MonChiffre)   ' *** ICI

MaVar(6) = "Ta sixième valeur" 
MaVar(7) = "Ta septième valeur" 
MaVar(8) = "Ta huitième valeur" 
MaVar(9) = "Ta neuvième valeur" 
MaVar(10) = "Ta dixième valeur"

Coloration syntaxique automatique