ca marche:copie onglets dans autre classeur.(sauf que...)

[papapaul]

J'ai ecrit ca pour copier une sélection d'onglets dans un nouveau classeur.
Je voudrais finir pour la fin de la semaine mais voila ?!
Ca marche super bien sauf que ca me creer autant de nouveau classeurs que d'onglets selectionnés.

Manque un petit bout de code, mais quoi ? je rame. Au secours.

Pour ceux qui veulent et qui débutent comme moi,
j'ai d'autres petits exemples de macros :

Copies de filtres, listbox avec nom de feuilles (sauf une ou deux si on veut),
creation d'onglets avec nom et tri a partir d une bd, etc.. Si ca peut aider
quelqu'un... demandez.

Private Sub CommandButton1_Click()
'Copie plusieurs feuilles pour enregistrer
Dim wb As Workbook
Dim i As Integer
Dim tmp As Integer
Dim myarray() As Variant
Set wb = ThisWorkbook
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
ReDim Preserve myarray(tmp)
myarray(tmp) = ListBox1.List(i)
tmp = tmp + 1
End If
Next
End With
For i = 0 To UBound(myarray)
wb.Worksheets(myarray).Copy
Next i
Application.Dialogs(xlDialogSaveAs).Show
UserForm1.Hide
End Sub