Comment dans une macro appeler un nouveau classeur

Bonjour à tous

Mon pb chaque fois que je lance la macro je cree un nouveau classeur ce classeur s'appel classeur1 puis 2 etc.. comment dans le code ci dessous
je pourrai remplacer (classeur1) pour prendre le nouveau classeur actif


Windows("TEL.XLS").Activate
Application.CutCopyMode = False
Selection.Copy
---------------------------------------------
Windows("Classeur1").Activate
----------------------------------------------
Range("A1").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Columns("a:a").ColumnWidth = 9


Merci par avance
H@NNOUN