Comment copier coller une feuille dans un autre classeur en respectant la hauteur des lignes et
la largeur des colonnes ?

Voici deux macros qui permettent de copier une feuille et de la coller dans un autre classeur en respectant la hauteur de ligne et la largeur de colonne.

Public Plage() As Long  Public Col, Li As Integer  sub copierformat()
 Col = Selection.Columns.Count
 Li = Selection.Rows.Count
 xcol = ActiveCell.Column - 1
 xli = ActiveCell.Row - 1
 ReDim Plage(Col, Li, 1) As Long
 For Each cell In Selection
  Plage(cell.Column - xcol, cell.Row - xli, 0) = cell.ColumnWidth
  Plage(cell.Column - xcol, cell.Row - xli, 1) = cell.RowHeight
 Next
 end sub

sub CollerFormat()
 ActiveCell.Select
 xcol = 1
 xli = 1
 For xcol = 1 To Col
  ActiveCell.ColumnWidth = Plage(xcol, 1, 0)
  ActiveCell.Offset(0, 1).Range("A1").Select
 Next
 For xli = 1 To Li
  ActiveCell.RowHeight = Plage(1, xli, 1)
  ActiveCell.Offset(1, 0).Range("A1").Select
 Next
 end sub