Lancer une macro au hasard

Histoire de faire vivre encore plus ce forum voici la petite macro du lundi matin… Cette macro lance une macro au hasard dans les slots entre 1 et 5.

DeclareOnce int $macrorandom$ = 0

Set $macrorandom$ = {floor(scale(random(), 0, 1,1,6))}
Message $macrorandom$

If {$macrorandom$==1}
MacroStartIfNeededOnSlot 1
EndIf

If {$macrorandom$==2}
MacroStartIfNeededOnSlot 2
EndIf

If {$macrorandom$==3}
MacroStartIfNeededOnSlot 3
EndIf

If {$macrorandom$==4}
MacroStartIfNeededOnSlot 4
EndIf

If {$macrorandom$==5}
MacroStartIfNeededOnSlot 5
EndIf