Salut tranchont,
Ce serait plus facile si t'avais le fichier joint. Essaye de renommer l'objet à chaque fois que tu fais une copie. Sheets('Feuil1').Copy After:=Sheets(3) et tu renomme l'objet ActiveSheet.Objetc (Shapes, Structure, Image).Name= 'Nom'