Salut,
Sheets("75001").Select fonctionne mais pas la commande Sheets(CPOST).Select même si CPOST est bien égal à 75001.
CPOST = 75001
Dans ce cas si 75001 est consideré comme un nombre ça ne marche pas puisque les feuilles peuvent être aussi appellée par leur index et je ne crois pas que tu as 75001 feuilles.
Donc quand tu fais Sheets(CPOST) en fait c'est la feuille numéro 75001 que ta macro cherche et pas Sheets("75001") qui est le nom de la feuille.
Il faut s'assurer que la CPOST est une chaîne sinon il faut la convertire.
Solution 1:
Dim CPOST as String ' on s'assure que le contenu est une chaîne pas un numéro
CPOST = 75001
Sheets(CPOST).Select
Solution 2
Dim CPOST 'Si la variable CP est autre chose que String
CPOST = 75001
Sheets(cstr(CPOST)).Select