Tu écris :
Il y a juste une répétition de l'ensemble à partir de la ligne 167
En fait, tu fais une boucle pour ajouter toutes les feuilles du classeur de la feuille 4 à la dernière feuille :
For i = 4 To Worksheets.Count
Or, la dernière feuille, ‘’Recap’’, est celle qui te cause la répétition.
Il faut donc que ta boucle s’arrête une feuille avant :
For i = 4 To Worksheets.Count -1
OK ?
Bye !