Tirage d'un nouveau nombre aléatoire dans la première cellule vide de la colonne

Sub test()
Dim alea As Byte 'déclare la variable alea
Dim cel As Range 'déclare la variable cel

debut: 'étiquette
If Cells(10, 3).Value <> "" Then MsgBox "Tirage effectué !": Exit Sub 'si la cellule C10 n'est pas vide, message, sort de la procédue
Randomize 'lance le générateur de nombres aléatoires
alea = 10 + Int(10 * Rnd) ''definit alea
If Not Columns(3).Find(alea, , xlValues, xlWhole) Is Nothing Then GoTo debut 'si alea existe déjà dans la colonne 3, va à l'étiquette "debut"
Set cel = IIf(Cells(1, 3).Value = "", Cells(1, 3), Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)) 'définit la cellule cel
cel.Value = alea 'donne à la cellule cel la valeur alea
End Sub