Améliorer Créer nouveau classeur et copier/coller données

Sub Macro2_pmo()
Dim WB As Workbook
' On crée un nouveau classeur
Set WB = Application.Workbooks.Add
'dans le classeur concerné et la feuille en cours on sélectionne la plage qu'on copie
Windows("Test.xls").Activate
Range("AI5:AM111").Select
Selection.Copy
' dans le nouveau classeur crée on colle les informations en valeur et format
WB.Windows(1).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End Sub

Sub Macro2()
'

Dim WB As Workbook
Dim Nom_Ext

' On crée un nouveau classeur
Set WB = Application.Workbooks.Add
Nom = InputBox("Veuillez saisir le nom du fichier", "Nom du fichier à créer :")
Nom_Ext = Nom & ".xls"
'Workbooks.Add     'créer un nouveau classeur

'dans le classeur concerné et la feuille en cours on sélectionne la plage qu'on copie
Windows("Test.xls").Activate
Range("AI5:AM111").Select
Selection.Copy

' dans le nouveau classeur crée on colle les informations en valeur et format
WB.Windows(1).Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub