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