Oui, à ma grande surprise, car c'est incompréhensible.
Contre toute attente en supprimant carrément toutes les séries ça marche, il a l'air de comprendre comment les créer ensuite sans avoir à se baser sur d'existantes.
Donc en remplaçant While LMax < SCn.Count: SCn(LMax + 1).Delete: Wend
par While SCn.Count > 0: SCn(1).Delete: Wend