Bonsoir le forum
Regarde si cela pourrait faire
Option Explicit
Sub nbre_aleatoire_figer()
' Gérer un nombre aléatoire et le figer sur la cellule active
With ActiveCell
.FormulaR1C1 = "=ALEA.ENTRE.BORNES(0,100)"
.Copy
.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
End Sub
Sub nbre_aleatoire_figer2()
' Gérer un nombre aléatoire et le figer sur une plage de cellule
Dim i As Byte
For i = 1 To 30
With Cells(i, 1)
.FormulaR1C1 = "=ALEA.ENTRE.BORNES(0,100)"
.Copy
.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
Next i
End Sub
Mytå