Bonjour!
Je me permet de poster ici parce qu' il ya 1 message d'erreur que je ne comprend pas:
Erreur d'exécution '9':
L'indice n'appartient pas à la séléction.
Le code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Private Sub CommandButton1_Click()
    Sheets.Add after:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = "Artistes"
    Workbooks("Artiste 2007 01 31 version a reintegrer.xls").Worksheets("------- Artiste -------").Range("I1:I3677").Copy
    Workbooks("Artiste 2007 01 31 version a reintegrer.xls").Worksheets("Artistes").Range("A1:A3677").PasteSpecial
End Sub
Merci d'avance pour votre aide!