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 Integer, Rep As Integer, nb As Integer
    Inf = Cells(1, 1) 'Cellule A1 de la feuille Active = limite inférieure
    Sup = ???? ' B1
    nb = ??? ' C1
    ReDim Tableau(1 To nb)

Randomize
For cpt = 1 To nb
    Rep = Entieral (???)
    Tableau(????) = Rep
    Debug.Print Tableau(????)
   ???????
Next cpt
End Sub