Vba créer nouveau tableau puis copier ...

Bonjour,

Je rencontre un problème et je ne vois pas lequel est-ce :

J'ai fini de remplir un tableau et je voudrais copier la Sheet créée dans un nouveau classeur

créé par la macro.

J'ai donc fait:

Dim courant As String
Dim adress1path As String

adress1 = Nomfichier(UserForm1.TextBox1.Text)
courant = ThisWorkbook.Name
adress1path = ActiveWorkbook.Path

(...)

adress1 = Replace(adress1, ".xls", "")
Workbooks.Add.SaveAs (adress1path & "\" & adress1 & "-" & "abc")

Windows(courant).Activate

Sheets(1).Copy

Windows(adress1 & "-" & "abc").Activate

Sheets(1).Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False




Pour la création, du nouveau classeur avec le nom pas de problème, pour la copie pas de problème

sauf qu'il me le fait dans un tableau appelé Classeur 3

En gros en plus d'avoir mon nouveau classeur (bien nommé) ouvert, il en ouvre un autre et me copie ma Sheet dedans.

J'aurais donc besoin d'un autre regarde dessus.

Merci d'avance.

M&m