Option Explicit
Sub Tirage()
Dim LAt As New ListeAléat, TC(), L As Long, LR As Long, N As Long
TC = ActiveSheet.[BB2].Resize(90).Value
Randomize
LAt.Init 90
For L = 1 To 90
If VarType(TC(L, 1)) = vbDouble Then
LAt.Supprimer TC(L, 1)
ElseIf LR = 0 Then
LR = L
End If
Next L
N = LAt.Aléat
ActiveSheet.[AX5].Value = N
TC(LR, 1) = N
ActiveSheet.[BB2].Resize(90).Value = TC
End Sub