Macro-enregistrement-automatique / feuilles

Bonjour à tous ,

Je reprends la suite de ce sujet,

https://forums.commentcamarche.net/forum/affich-3861950-excel-vba-macro-enregistrement-automatique

et souhaitais savoir si il était possible d'adapter cette macro, pour qu'elle enregistre une seule feuille du classeur.
Par exemple uniquement la feuil2 ?
Merci
----------------------------

Public Sub CommandButton1_Click() 'Worksheet Backup Copy
Dim nom As String
nom = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & "_" & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hhmmss") & ".xls"
ActiveWorkbook.SaveCopyAs ActiveWorkbook.Path & "\old\" & nom
rep = MsgBox("Worksheet saved on 'old' sub-directory under name: " & nom, vbYes + vbInformation, "Worksheet Backup Copy")
End Sub