[VBA Excel] tableau à dimension paramétrée

Sub Tableau()

    Dim MonTableau() As Currency
    Dim Boucle As Integer, Compt As Integer
    Dim strMessage As String
    
    For Boucle = 1 To 100
        ReDim Preserve MonTableau(Boucle)
        MonTableau(Boucle - 1) = 5 * Boucle
    Next Boucle
    
    For Boucle = 1 To 10
        For Compt = 1 To 10
            strMessage = strMessage & MonTableau((Boucle * Compt) - 1) & " - "
        Next Compt
        strMessage = strMessage & vbLf
    Next Boucle
    
    MsgBox strMessage
    
End Sub
'