Sub NouveauJeu()
sh_NJD.Cells.Clear
nbl = WorksheetFunction.RandBetween(30, 3000)
ReDim tb(1 To nbl, 1 To 3)
For i = 1 To nbl
tb(i, 1) = WorksheetFunction.RandBetween(1, 3)
If WorksheetFunction.RandBetween(1, 2) = 1 Then tb(i, 2) = "x"
If WorksheetFunction.RandBetween(1, 2) = 1 Then tb(i, 3) = "x"
Next
sh_NJD.Cells(1).Resize(nbl, 3).Value = tb
End Sub