Sub CopiePlage()
Dim plage1 As Range, plage2 As Range, i As Long
Set plage1 = Sheets("Feuil1").Range("A1:C10")
Set plage2 = Sheets("Feuil2").Range("B5:D14")
plage1.Copy plage2
For i = 1 To plage1.Rows.Count
plage2.Rows(i).RowHeight = plage1.Rows(i).RowHeight
Next
For i = 1 To plage1.Columns.Count
plage2.Columns(i).ColumnWidth = plage1.Columns(i).ColumnWidth
Next
End Sub