Bonjour,
J'ai fait le test, et on peut vérifier 30 valeurs, c'est à dire les valeurs entrées sur la plage B3:B32
au delà il faut modifier le chiffre 30 sur les lignes suivante:
Global stat(30) As Integer
Global statb(30) As Integer
Global elems(30) As Double
mais attention car le temps d'exécution augmentera exponentiellement à chaque unité de plus.