Nombre aleatoire

Bonsoir,

Pouvez vous m'aider s'il vous plait? J'aimerais générer des nombres aléatoires entre 0 et 50 dans plusieurs cellules.

Pouvez vous m'indiquer ce que je dois enlever de la macro pour pouvoir avoir des doublons. Voici le code :

Sub Exercice3()

Dim plage As Range, cel As Range, alea As Double

Set plage = Range("B6:C30")
plage.Value = ""
If plage.Count > 50 Then Exit Sub
Randomize

For Each cel In plage
1     alea = WorksheetFunction.RandBetween(1, 50)
If Application.CountIf(plage, alea) Then GoTo 1 Else cel = alea
Next

End Sub

Merci beaucoup

Bonjour,

T'as été un peu plus malin que ton pote ici, mais tu aurais au moins pu changer le nom de la sub.