comme ton explication reste un peu vaseuse, voilà une solution qui recopie toutes les lignes de la feuille active dans la colonne A1 de la feuille 2. Ensuite, il est simple d'adapter à ce que tu veux vraiment
Sub CopieLignes()
'Ti
Dim PlageS As Range, PlageDest As Range
Dim Ligne As Range, Cel As Range
With ActiveSheet
Set PlageS = .Range("B1", .Cells(.Range("B1").End(xlDown).Row, _
.Range("B1").End(xlToRight).Column))
End With
With Worksheets("Feuil2")
Set PlageDest = .Range("A65536").End(xlUp)
End With
For Each Ligne In PlageS.Rows
For Each Cel In Ligne.Cells
PlageDest.Value = Cel.Value
Set PlageDest = PlageDest.Offset(1, 0)
Next Cel
Next Ligne
End Sub