Tu n'es pas très explicite dans ta demande !
Des questions ont été soulevées, tu ne réponds à aucune !...
S'il s'agit simplement de reproduire les données d'une feuille sur une autre, le code suivant le fait :
Sub Test()
Dim plage As Range
Set plage = Worksheets("Feuil1").UsedRange
Worksheets("Feuil2").Range("A1").Resize(plage.Rows.Count, plage.Columns.Count).Value = plage.Value
End Sub
mais il ne reproduira pas la mise en forme (gras, italique, courleurs...), ni les formats de cellules, ni les bordures.
Cordialement.