ALEA ENTRE BORNES sans doublons

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

   rem 15 est égal au nombre de cellule à remplir
  rem 8 = col I 
   For i = 1 To 15
    oCell = oSheet.getCellByPosition(8,i)
      Do
         match = False
         rem nb int(rnd()*xx) donne la limite
         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