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