Public Numero() as Integer
Sub TEST()
Dim K As Integer
ReDim Numero(Niv + 2)
For K = 1 To Niv + 2
Numero(K) = Int((Rnd * Niv + 2) + 1)
If Numero(K) = 2 Or Numero(K) = 6 Or Numero(K) = 7 Or Numero(K) = 8 Or Numero(K) = 9 Or Numero(K) = 12 Or Numero(K) = 13 Or Numero(K) = 15 Or Numero(K) = 16 Or Numero(K) = 18 Then Return
Cells(10, K) = Numero(K)
Next K
End Sub