Sub Tirage()
Application.ScreenUpdating = False
With [A1:E5] 'plage à adapter
If .Count > 100 Then Exit Sub 'sécurité
Do
.Formula = "=RANDBETWEEN(1,100)"
Loop While Evaluate("SUM(1/COUNTIF(" & .Address & "," & .Address & "))") < .Count
.Value = .Value 'supprime les formules
End With
End Sub