Sub Alea()
'se lance par les touches Ctrl+R
Dim t, ncol%, i&, j%
With Feuil1.[M5:V11] 'plage à adapter
If .Count = 1 Then Exit Sub
Randomize
t = .Value: ncol = UBound(t, 2)
For i = 1 To UBound(t)
For j = 1 To ncol
t(i, j) = Int(1 + 99 * Rnd) 'nombres entiers entre 1 et 99
Next j, i
.Value = t
End With
End Sub