[VBA-E] L'indice n'appartient pas à la séléction.

Bonjour!
Je me permet de poster ici parce qu' il ya 1 message d'erreur que je ne comprend pas:

Citation:

---

Erreur d'exécution '9':
L'indice n'appartient pas à la séléction.

---

Le code:

Code:

---

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!

Comme je vais supprimer ton message, devstage, la solution passe par là

Code:

---

1 2 3 4

ActiveSheet.Name = "Artistes" '...... Workbooks("Artiste 2007 01 31 version a reintegrer.xls"). _ Worksheets(Artistes).Range("A1:A3677").Paste

---

Donne-nous le résultat que je fasse le ménage ;)