Bonjour,
Je ne vois pas bien ce que tu veux dire par "enregistrer les deux dernières feuilles d'un classeur (au même nom) dans un nouveau classeur..." mais voici un code qui te donne les deux dernières feuilles de la collection en ne prenant en compte que les feuilles de calcul :
Sub Test()
Dim AvDerFe As Worksheet
Dim DerFe As Worksheet
'Worksheets et non Sheets pour ne prendre en compte que les feuilles de calcul !
Set AvDerFe = Worksheets(Worksheets.Count - 1)
Set DerFe = Worksheets(Worksheets.Count)
MsgBox AvDerFe.Name & vbCrLf & DerFe.Name
End Sub