Copie feuille après elle même

Bonjour,

Après quelques années sans pratiquer, je me retrouve avec un code qui ne fonctionne plus et quand j'ouvre mon classeur il m'indique "le fichier est corrompu, il ne peut pas s'ouvrir". Je dois ouvrir un autre classeur pour l'ouvrir via ce dernier .
Mais voici l'erreur qui apparait:
https://www.cjoint.com/c/KCCjOVKoXXF

mais initialement mon code était celui -ci, pour la même erreur:

'recherche des index des onglets avec le numéro de la dernière année

nbonglet = ActiveWorkbook.Sheets.Count  'compte le nombre d onglets

 For a = 1 To nbonglet + 11             '11 feuilles crees
  If Right(Sheets(a).Name, 4) = annee Then

'creation nouvel onglet syndicataires
    Sheets(a).Select
    idxfeuil = ActiveSheet.Index
    
    Sheets(idxfeuil).Copy After:=Sheets(idxfeuil)   'copie la feuil apres elle meme
    idxnewfeuil = ActiveSheet.Index                 'index de la nouvelle feuil copiee

Je ne sais donc d'où vient cette erreur , pouvez-vous m'aider svp?


--
N'ayez pas peur!