Copie d'une feuille d'un classeur à un autre avec UserForm

Bonjour à tous et merci par avance pour votre aide

J'ai un petit souci avec mon userform, il copie bien les données mais:

1)Dans un nouveau classeur alors que je souhaiterais une nouvelle feuille dans le classeur de destination

2)Les données apparaissent très bizarrement, succession de chiffres sans queue ni tête

3)J'aimerais continuez à avoir le choix du dossier à copier

4)Il faudrait que les données soient collés sous mon userform comme ca je peux importer une nouvelle mise à jour si je le souhaites

Merci à tous d'avance pour vos conseils

Vous trouverez ci-joint le code userform:

Private Sub CommandButton1_Click() ' RECHERCHE DU CLASSEUR SOURCE

Dim Classeur_choisi As Long

Static Classeur_choisi_bis As String

Select Case UserForm1.CommandButton1.Caption

Case "Feuille à Copier"

With Application.FileDialog(msoFileDialogOpen)

.AllowMultiSelect = False

.Show

For Classeur_choisi = 1 To .SelectedItems.Count

Workbooks.Open (.SelectedItems(Classeur_choisi))

Next Classeur_choisi

End With

Classeur_choisi_bis = ActiveWorkbook.Name

ActiveWorkbook.Saved = True ' Pour éviter le message de re-calcul des formules d'une version antérieure.

UserForm1.CommandButton1.Caption = "Copier cette Feuille"

' ICI L'ON PEUT CHOISIR LA FEUILLE A COPIER

Case "Copier cette Feuille"

ActiveWorkbook.ActiveSheet.Copy after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)

Windows(Classeur_choisi_bis).Activate

Application.DisplayAlerts = False

ActiveWorkbook.Close

Unload UserForm1

Sheets("Feuil1").Select

Application.DisplayAlerts = True

ActiveWorkbook.Save

End Select

End Sub

Private Sub UserForm_Click()

End Sub

Bonjour et bienvenue sur le forum

Tu écris :

J'ai un petit souci avec mon userform...

Aucun de tes fichiers n'a de UserForm. Pas plus que de macro d'ailleurs.

Tu as dû faire une mauvaise manip...

Bye !