Boucle for selection de ligne

Nous avons des lignes à sélectionner et à recopier venant de différentes pages et que nous voulons synthétiser sur une nouvelle et unique page.

Pour ce faire, nous voulons utiliser une boucle for, comme vous le voyez dans le code suivant, mais ça ne fonctionne pas... HELPPP!!!

Sub tableau_alpha()

'déclaration de la variable "n"

Dim n As Integer

n = Sheets("Nbre d'essieux").Cells(4, 1).Value

Dim j As Integer

For j = 1 To 4

Sheets("New Modèle").Select

Rows("4+j*2*n:4+j*2*n").Select

Selection.Copy

Sheets("Feuil1").Select

Rows("4+j:4+j").Select

ActiveSheet.Paste

Sheets("SIA Modèle").Select

Rows("4+j*3:4+j*3").Select

Selection.Copy

Sheets("Feuil1").Select

Rows("4+j+1:4+j+1").Select

ActiveSheet.Paste

Next

End Sub

Bonjour

l'écriture de sélection de ligne est incorrecte

Sub tableau_alpha()
Dim n As Integer
n = Sheets("Nbre d'essieux").Cells(4, 1).Value
Dim j As Integer
For j = 1 To 4
Sheets("New Modèle").Select
Rows(4 + j * 2 * n).Select
Selection.Copy
Sheets("Feuil1").Select
Rows(4 + j).Select
ActiveSheet.Paste
Sheets("SIA Modèle").Select
Rows(4 + j * 3).Select
Selection.Copy
Sheets("Feuil1").Select
Rows(4 + j + 1).Select
ActiveSheet.Paste
Next
Application.CutCopyMode = False
End Sub

Cordialelent

Bonjour

En espérant de ne me pas m'être planté dans la simplification du code

Sub tableau_alpha()
'déclaration de la variable "n"
Dim n As Integer
Dim j As Integer

  n = Sheets("Nbre d'essieux").Cells(4, 1).Value

  For j = 1 To 4
    Sheets("New Modèle").Rows(4 + j * 2 * n).Copy Destination:=Sheets("Feuil1").Rows(4 + j)
    Sheets("SIA Modèle").Rows(4 + j * 3).Copy Destination:=Sheets("Feuil1").Rows(4 + j + 1)
  Next j
End Sub

Merci beaucoup les gas, rapidité et compétence! Tout est ok!