XL 2021 tirage aléatoire

Sub Num_alea1()
    Dim nombAleatoire%, L%, C%, N%
    Randomize
    'Nombre aléatoire entier entre 1 et 9___0 :
    nombAleatoire = Int(90 * Rnd) + 1
    MsgBox nombAleatoire
    ' Nombre de nombres déjà entrés
    N = Application.CountIf([B2:K11], ">0")
    ' On sort si le tableau est plein
    If N = 100 Then Exit Sub
    ' Détermination des lignes et colonnes de la première case vide
    C = Int(N / 10)
    L = N - 10 * C
    ' Calcul de L et C car le tableauc commence en 2,2 et non en 0,0
    C = C + 2: L = L + 2
    ' rangement du nombre
    Cells(L, C) = nombAleatoire
End Sub

Sub Num_alea1()
    Randomize
    On Error Resume Next
    [B2:K11].Find("", [K11], , , xlByColumns, xlNext) = Int(90 * Rnd) + 1
End Sub

Const ntempo = 40

Sub Num_alea1()
' nombre aléatoire avec possiblement des doublons y.c. dans chaque colonne
Dim x, y
   Range("b2:k11").ClearContents
   Randomize
   For Each x In Range("b2:k11").Columns
      For Each y In x.Cells
         y.Value = 1 + Int(90 * Rnd)
         tempo ntempo
      Next y
   Next x
End Sub

Sub Num_alea2()
' nombres aléatoires  de 1 à 90 avec possiblement des doublons
' mais dans chaque colonne, il n'y a aucun doublon
Dim x, y, t(1 To 90), i&, j&, aux
   Range("b2:k11").ClearContents
   Randomize
   For i = 1 To 90: t(i) = i: Next
   For Each x In Range("b2:k11").Columns
      For i = 1 To 90: j = 1 + Int(Rnd * 90): aux = t(i): t(i) = t(j): t(j) = aux: Next
      i = 0
      For Each y In x.Cells: i = i + 1: y.Value = t(i): tempo ntempo: Next
   Next x
End Sub

Sub Num_alea3()
Dim x, y, t(1 To 100), i&, j&, aux
' nombre aléatoire avec aucun doublon dans le tableau
' tirage des nombres entre 1 et 100
   Range("b2:k11").ClearContents
   Randomize
   For i = 1 To 100: t(i) = i: Next
   For i = 1 To 100: j = 1 + Int(Rnd * 90): aux = t(i): t(i) = t(j): t(j) = aux: Next
   i = 0
   For Each x In Range("b2:k11").Columns
      For Each y In x.Cells: i = i + 1: y.Value = t(i): tempo ntempo: Next
   Next x
End Sub

Sub tempo(n&)
Dim i&, j&
   For i = 1 To n: For j = 1 To n: DoEvents: Next j, i
End Sub

Sub Num_alea2()
' nombres aléatoires  de 1 à 90 avec possiblement des doublons
' mais dans chaque colonne, il n'y a aucun doublon
Dim raz, pro, tir, t(1 To 90), r(1 To 10, 1 To 10), i&, j&, aux, k&
   i = Application.CountA(Range("b2:k11"))
   If i = 100 Then raz = MsgBox("La grille est complète, voulez-effacer le tirage et recommencer ?", vbYesNo)
   If raz = vbNo Then Exit Sub
   pro = [prochain]: tir = [tirage]: i = Application.CountA(Range("b2:k11"))
   If IsError([prochain]) Or IsError(tir) Or i = 0 Or i = 100 Then
      Range("b2:k11").ClearContents
      Randomize
      For i = 1 To 90: t(i) = i: Next
      For k = 1 To 10
         For i = 1 To 90: j = 1 + Int(Rnd * 90): aux = t(i): t(i) = t(j): t(j) = aux: Next
         For i = 1 To 10: r(i, k) = t(i): Next
      Next k
      ThisWorkbook.Names.Add "tirage", r
      ThisWorkbook.Names.Add "prochain", 1
   End If
   pro = [prochain] - 1: tir = [tirage]
   Range("b2:k11")(1, 1).Offset(pro Mod 10, Int(pro / 10)) = tir(1 + pro Mod 10, 1 + Int(pro / 10))
   ThisWorkbook.Names.Add "prochain", [prochain] + 1
End Sub

Sub Num_alea1()
'évite les doublons dans une colonne
Dim P As Range, c As Range, r%
    Randomize
    On Error Resume Next
    Set P = [B2:K11]
    Set c = P.Find("", P(P.Rows.Count, P.Columns.Count), , , xlByColumns, xlNext)
    Do
        r = Int(90 * Rnd) + 1
    Loop While Application.CountIf(Intersect(c.EntireColumn, P), r)
    c = r
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'évite les doublons dans une colonne du tableau
    Set Target = Intersect(Target, Range(adr))
    If Target Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each Target In Target
        If Application.CountIf(Intersect(Target.EntireColumn, Range(adr)), Target) > 1 Then Target = ""
    Next
    Application.EnableEvents = True
End Sub

Public Const adr As String = "B2:K11"'mémorise la variable

Sub Num_alea1()
Dim r As Range
    Randomize
    On Error Resume Next
    Set r = Range(adr)
    Set r = r.Find("", r(r.Rows.Count, r.Columns.Count), , , xlByColumns, xlNext)
    Do
        r = Int(90 * Rnd) + 1
    Loop While r = ""
End Sub