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