Sub test1()
'clone hauteur de ligne et largeur de colonne de la feuille 1
'sur les feuilles 2 à 12
Dim R As Range, C As Range, i%
'au cas où, pr lignes, colonnes nombreuses:
Application.ScreenUpdating = False
Application.Calculation = xlManual
For i = 2 To 12
For Each R In Worksheets(1).Range("A1:AD30").Rows
Worksheets(i).Rows(R.Row).RowHeight = R.RowHeight
Next R
For Each C In Worksheets(1).Range("A1:AD30").Columns
[color=yellow]Worksheets(i).Columns(C.Columns).ColumnWidth = C.ColumnWidth[/color]
Next C
Next i
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub