Bonjour,
Saisissez cette formule à appliquer sur la plage
=ALEA.ENTRE.BORNES(100;999999)
Cdlt
Edit;
La même chose en vba sur la plage A1:J10, à associer à un bouton
Sub Alea()
Range("A1:J10").FormulaR1C1 = "=RANDBETWEEN(100,999999)"
Range("A1:J10").Value = Range("A1:J10").Value 'fixe les valeurs
End Sub