Raja a écrit :
Edit à d3d9x : Bravo d3d9x, C'est plus simple et logique. Je me doutais bien qu'il y avait plus efficace d'autant plus je suis quasi sur que je l'ai déjà prodigué. Que veux-tu on donne tellement vitre parfois la solution on y réfléchit même pas. En tout cas, j'apprécie ta compétitivité. Je te laisse répondre pour la solution VBA
vais l'imprimer et le mettre sur mon mur
Voilà une proposition en VBA qui devrait te convenir.
Dim res As Integer
res = WorksheetFunction.Index(Array(2, 3, 5), WorksheetFunction.RandBetween(1, 3))