Bonjour Tom_Tom91
Avant de vouloir "augmenter la pile" qui n'est pas possible, il faut vérifier le code
Et là... Mais c'est quoi cette usine à gaz
1) Pourquoi définir autant de variables Range pour juste 1 cellule ?
2) Select Case pour juste 1 choix
3) Des Range() dont on ne ait pas l'objet conteneur, on fait en général
Sheets("Toto").Range("G38")
4) Il faut Désactiver les évènements en début de module et réactivez les après
Voici le fichier avec le code largement optimisé, à tester et vérifier tout de même si je n'ai pas laissé des coquilles
A+