ALEA ENTRE LÍMITES sin duplicados

Sub Tirage_col_I
Dim i
Dim j
Dim val
Dim match
 oSheet = ThisComponent.Sheets(0)

 rem 15 es igual al número de celdas a llenar
 rem 8 = col I 
 For i = 1 To 15
 oCell = oSheet.getCellByPosition(8,i)
 Do
 match = False
 rem nb int(rnd()*xx) da el límite
 val = int(rnd()*49) + 1
 For j = 1 To i
 If val = oSheet.getCellByPosition(1,j).getValue() Then
 match = True
 End If
 Next j
 Loop Until (match = False)
 oCell.setValue(val)
 Next i
End Sub