Bonjour,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Sub copie()
Sheets("1").Select
Sheets("1").Copy After:=Sheets("1")
End Sub
Quelle modification faut-il apporter pour que cette feuille soit toujours copier en dernière position ?

Vous en remerciant par avance.

Cordialement.