excel VBA comment recopier sur plusieurs feuilles

Bonjour,

Je voudrais recopier une plage d'une feuille(par exemple la 1) sur plusieurs feuilles(par exemple de la 15 à50).Dans mon code je ne peux que recopier sur une seule feuille.Comment faire?

Code:

---

1 2 3 4 5 6 7 8

Sub SelectRecopie() ' Redéfinir la plage en fonction du nombre de lignes ' Sélectionner cette plage ' Copier les valeurs contenues dans cette plage sur la feuille 2 à la cellule "A1" With Worksheets(1) .Range(.[A1], .[G1].End(xlDown)).Copy Worksheets(2).[A1] End With End Sub

---

Merci d'avance,

tiens inspire toi de ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub SelectRecopie() ' creation d'un tableau contenant les numéro de feuilles destinataires... ' Dim t() As Integer Dim j As Integer For i = 4 To 10 ReDim Preserve t(j) t(j) = i j = j + 1 Next   ' Redéfinir la plage en fonction du nombre de lignes ' Sélectionner cette plage ' Copier les valeurs contenues dans cette plage sur la feuille 2 à la cellule "A1"     With Worksheets(1) .Range(.[A1], .[G1].End(xlDown)).Copy   End With Sheets(t).Select ' Selectionne le groupe de feuille Sheets(t(O)).Range("A1").Activate 'Active la 1° feuille du groupe ActiveSheet.Paste Sheets(t(O)).Select ' Sélectionne la 1° feuille ( fin du groupe..) End Sub

---

:roll: :wink: