Discussion :

[BtjpsspgrW]

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.

[patricktoulon]

bONJOUR

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("1").Copy After:=Sheets(sheets.count)