Private Sub CommandButton9_Click()
Dim Plg As Range, T(), L As Long, Numéros As New ListeAléat
Set Plg = Me.[F6:F13]
T = Plg.Value
Randomize
Numéros.Init UBound(T, 1)
For L = 1 To UBound(T, 1)
If T(L, 1) < 1 Or T(L, 1) > UBound(T, 1) Then Exit For
Numéros.Supprimer T(L, 1): Next L
If Numéros.Count > 0 Then
Plg.Rows(L).Value = Numéros.Aléat
Else
MsgBox "Il ne subsiste plus d'autre numéro disponible.", _
vbCritical, "Générer": End If
End Sub