Générer des entiers aléatoires

Peut-on générer des entiers aléatoires entre 2 bornes en complétant la macro ci-joint ?

Merci par avance

Bonjour,

Option Explicit

Public Function Entieral(ByVal Min As Integer, ByVal Max As Integer) As Integer
Entieral = Int((Max - Min + 1) * Rnd + Min)
End Function

Public Sub test()
Dim Inf As Integer, Sup As Integer, cpt As Integer, Tableau() As Variant, Rep As Integer, nb As Integer
    Inf = Range("A1").Value 'Cellule A1 de la feuille Active = limite inférieure
    Sup = Range("B1").Value ' B1
    nb = Range("C1").Value ' C1
    ReDim Tableau(1 To nb)
Randomize
For cpt = 1 To nb
    Rep = Entieral(Inf, Sup)
    Tableau(cpt) = Rep
    Debug.Print cpt & "::" & Tableau(cpt)
Next cpt
End Sub

Hello Kira ... c'est ok ?