Tirage au sort

Sub test()
For i = 1 To 50
Cells(i, 1) = Rnd(1)
Next i
Columns("A:B").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Columns("A:A").Delete Shift:=xlToLeft
End Sub

Cells(i, 1) = Rnd(1)

Erreur d'exécution BASIC.
Sous-procédure ou procédure de fonction non définie.

Sub tirag()
Dim MesNumeros As Object, X As Byte, Num As Byte
Dim DerCol As Byte
Set MesNumeros = CreateObject("Scripting.Dictionary")
DerCol = IIf([IV2].End(xlToLeft).Column = 1, 2, [IV2].End(xlToLeft).Column + 1)
Do While X < 20
    Randomize (Timer)
    Num = Int((50) * Rnd + 2)
    If Not MesNumeros.Exists(Num) And Application.CountIf(Range(Cells(X + 2, 2), Cells(X + 2, DerCol)), Num) = 0 Then
        X = X + 1
        MesNumeros.Add Num, Num
    End If
Loop
Cells(2, DerCol).Resize(MesNumeros.Count, 1).Value = Application.Transpose(MesNumeros.items)
End Sub