Copier la dernière feuille en dernière position

**yassine_13** · 07/02/2020, 11h01

Bonjour à tous,

pour l'instant j'ai fait ce code pour avoir une copie de la feuille 4,

Code :

1
2
3
Sub Dupliquer()
Sheets(4).Copy After:=Sheets(Sheets.Count)
End Sub

Comment je peux avoir une copie de la dernière feuille ?
Merci
Cordialement

**BENNASR** · 07/02/2020, 12h01

bonjour
à tester

Code :

1
2
3
4
Sub test()
X = Sheets.Count
Sheets(X).Copy After:=Sheets(Sheets.Count)
End Sub

**Thautheme** · 07/02/2020, 12h02

Bonjour Yassine, bonjour le forum,

Code :

1
2
3
Sub Dupliquer()
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)
End Sub

[Édition]
Bonjour Bennasr nos posts se sont croisés...

**yassine_13** · 07/02/2020, 12h07

Merci à tous

Macros et VBA Excel