Bonjour à tous,

J'ai un combobox sur un userform avec 16 items. chaque item correspond au nom d'une feuille dans thisworkbook.
J'aimerai que lorqu'un item est choisi qu'un nouveau classeur s'ouvre et que l'on copie toute la feuille(comboBox.text) de thisworkbook dans une nouvelle feuille(ComboBox.text) du nouveau classeur.
J'ai écris le code suivant mais à chque item choisi un nouveau classeur s'ouvre.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub ComboBox1_Change()
 
    Dim NewSheet As Variant
 
    ThisWorkbook.Worksheets(ComboBox1.Text).UsedRange.Copy
 
    Set NewSheet = Workbooks.Add
        NewSheet.ActiveSheet.Paste
        ActiveSheet.Name = ComboBox1
        [A1].Select
 
 
End Sub

Merci pour votre aide