Copie d'une Feuille sur un autre classeur

Bonjour,

Voilas je suis en stage et je doit réaliser quelque macro/interface VBA.

Une de celle ci doit permettre de choisir un fichier excel, de copier la premiére feuille et de coller le contenus sur une feuille d'un autre classeur tout en ajoutant 3 collone a la fin du tableau copié.

J'ai réusis à écrire le code pour l'ouverture du ficher:

Private Sub CommandButton1_Click()
Dim wb As Workbook

    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Show
        UserForm1.TextBox1.Text = .SelectedItems(1)
        Set wb = Workbooks.Open(.SelectedItems(1))
    End With

End Sub

Voilas si vous avez une idée, pour que je puisse finir cette macro =)

Cordialement

Salut,

pour copier c'est avec ce code :

Worksheets(1).Copy after:=Workbooks("LeNomDuFichier").Worksheets(1)

Et pour ajouter une colonne, tu sélectionne un plage et ce code :

Selection.Insert Shift:=xlToRight 'ou xlToLeft

Merci pour la réponse =), tout fontionne comme je le voulais c'est parfait.