Générer des chiffres aléatoires

Bonjour,

Je cherche à savoir comment peut-on générer dans les cellules de la colonne A de la feuil1 une succession de 5 chiffres aléatoire compris entre 0 et 9 : par exemple le premier « 15789 »….

J’ai pensé au bout de code suivant pour générer une valeur entière aléatoire :

 Function RandInt(Length As Integer) As String
        Randomize
        Dim i As Integer
        For i = 1 To Length
            RandInt = RandInt & Int(Rnd * 10)
        Next
    End Function

Merci beaucoup!

Bonjour,

Pour une succession de 5 chiffres aléatoires compris entre 0 et 9, j'opterai pour:

Option Explicit
Public Function RandInt() As String
Dim i As Byte
Const nb As Byte = 5
    For i = 1 To nb
        RandInt = RandInt & Int((Rnd * 9) + 1)
    Next
End Function

c'est bon j'ai trouvé en plus simple comment générer ces chiffres

grâce au code suivant

Range("A1") = WorksheetFunction.RandBetween(10000, 99999)

mais maintenant j'aimerais générer ces valeurs aléatoire de la ligne 1 à la ligne 20 par exemple

je pense que cela est possible en utilisant le code suivant

range ("A20"). End(XlUp).offset(1,0)

mais je n'ai pas réussi à le faire fonctionner

si quelqu'un peut m'aider...

merci beaucoup