Vba générer des nombres entiers bornés sans doublon

Bonjour les amis ,
Dans la plage de cellules B2:B(n+1) je veux créer aléatoirement des nombres entiers sans doublon de 1 à n ; avec n=NBVAL(X:X)
j'ai trouvé une macro mais je suis pas arrivé à la modifier pour l'adapter à mon problème :

Sub Aleatoire()
Dim plage As Range, cel As Range, alea As Double
Set plage = Range("A1:A10") 'modifiable
plage.Value = ""
If plage.Count > 76 Then Exit Sub
Randomize
For Each cel In plage
1 alea = 25 + Int(76 * Rnd)
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
Next
End Sub

Merci d'avance