Salut Oly, bonjour tout le monde,
Remplace
Range("F" & i) = Application.WorksheetFunction.RandArray
par Range("F" & i) = Rnd
Comme la première instruction ci-dessus passait chez moi, je n'ai pas cherché plus loin.
Si tu veux que je traite également les doublons, volontiers.