for i = 0 to X 'X est le nombre de copie Sheets("Feuille a copier").Select Sheets("Feuille a copier").Copy After:=Sheets(Sheets.Count)'copie en derniere feuille Sheets(Sheets.Count).Name = "feuille copiée num " & i 'nom de la nouvelle feuille 'ensuite tu supprime la feuille a copier si tu n'en as plus besoin Application.DisplayAlerts = False' enleve le message de confirmation de suppression de la feuille par excel Sheets("Feuille a copier").Delete 'suppresion de la feuille Application.DisplayAlerts = True ' réactivation des messages de confirmation