...Une adaptation qui te fait un tirage sans écriture préalable dans la feuille :
Il suffit de modifier iBot et iTop pour modifier les bornes. L'affichage se fait colonne 1
Option Base 1
Sub TirAuSort()
Dim Tablo(), i%, j%, k%, x%, iBot%, iTop%
iBot = 1
iTop = 25
j = iTop - iBot + 1
ReDim Tablo(j, 2)
For i = 1 To j
Tablo(i, 1) = iBot - 1 + i
Next
For i = 1 To j
Do
Tablo(i, 2) = Int(j * Rnd()) + iBot
For k = 1 To i
If Tablo(k, 2) = Tablo(i, 2) Then x = x + 1
If x > 1 Then
x = 0
Exit For
End If
Next
Loop Until x = 1
x = 0
Next
For i = 1 To j
Cells(i, 1) = Tablo(i, 2)
Next
End Sub
A+