Macro tirage aléatoire vba

Sub Test1()



Dim Valeur1
Dim Valeur2
Dim Valeur3
Dim Valeur4
Dim Valeur5
Dim Valeur6
Dim i As Integer


Dim borneMax1
Dim borneMin1
Dim borneMax2
Dim borneMin2
Dim borneMax3
Dim borneMin3
Dim borneMax4
Dim borneMin4
Dim borneMax5
Dim borneMin5
Dim borneMax6
Dim borneMin6


Randomize    ' Initialise le générateur de nombres aléatoires.

 borneMax1 = 10
 borneMin1 = 1
 borneMax2 = 20
 borneMin2 = 11
 borneMax3 = 30
 borneMin3 = 21
 borneMax4 = 40
 borneMin4 = 31
 borneMax5 = 50
 borneMin5 = 41
 borneMax6 = 60
 borneMin6 = 51


' Renvoie une valeur aléatoire comprise entre borneMin et
' borneMax c'est dire ici 1 et 10 inclus.
' int renvoie un entier
Sheets("Feuil1").Select
For i = 1 To 10 ' on fait 10 tirage
    Valeur1 = Int((borneMax1 * Rnd) + borneMin1)
    Valeur2 = Int((borneMax2 * Rnd) + borneMin2)
    Valeur3 = Int((borneMax3 * Rnd) + borneMin3)
    Valeur4 = Int((borneMax4 * Rnd) + borneMin4)
    Valeur5 = Int((borneMax5 * Rnd) + borneMin5)
    Valeur6 = Int((borneMax6 * Rnd) + borneMin6)
    ' on écrit
    Cells(i, 1).Value = Valeur1
    Cells(i, 2).Value = Valeur2
    Cells(i, 3).Value = Valeur3
    Cells(i, 4).Value = Valeur4
    Cells(i, 5).Value = Valeur5
    Cells(i, 6).Value = Valeur6

Next

End Sub