re, Je corrige la formule précédente =(50*Alea()+1) au lieu de =(49*Alea()+1)
Cette fonction te permettra de générer les nbre Aléatoires. Elles se trouve parmi les fonctions classiques d'Excel.
Public Function AleatoireBornée(BorneInf As Long , BorneSup As Long)
Dim ValAleat&
ValAleat = Int((BorneSup - BorneInf + 1) * Rnd + BorneInf)
AleatoireBornée = ValAleat
End Function
Ciao