Bonjour,
Voici mon problème :
J'ai actuellement une feuille (nommée "Feuille_tableau") qui contient un tableau de 50 lignes.
Je voudrais séparer ce tableau en 50 lignes dans 50 feuilles.

Lorsque j'écris le code ci-dessous, les 50 lignes vont dans la feuille "Feuille_destination1", cependant je souhaiterais incrémenter les feuilles pour qu'à chaque boucle, "Feuille_destination1" devienne "Feuille_destination2" puis "Feuille_destination3" etc...


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim b
Dim numero As Integer
nb_ligne = Sheets("Feuille1").Range("N10").Value
 
While numero < nb_ligne
   Sheets("Feuille_tableau").Activate
   Rows(numero).Select
   Selection.Copy
Sheets("Feuille_destination1").Activate
  Rows(b).Select
  Selection.PasteSpecial
  b = b + 1
numero = numero + 1
 
Wend
Merci d'avance de votre aide

Nathan