Bonjour,

je fais une copie d'une feuille sur une autre ligne à ligne, les hauteurs de lignes et largeurs de colonnes ne suivent pas dans la copie
je ne vois pas les paramètres à préciser
voilà mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub catalogue()
Dim i As Integer
Dim cell As Range
Dim SheetSource As Worksheet   ' Feuille source
Dim SheetTarget As Worksheet    ' Feuille cible
Dim LineSource  As Range           ' Ligne source courante
Dim CellTarget  As Range            ' Ligne cible courante
Dim ZoneSource  As Range         ' Plage de cellules à considérer
 
Set SheetSource = Worksheets("Param Services")
Set SheetTarget = Worksheets("Param catalogue")
Set CellTarget = SheetTarget.Cells(1, "A")
Set ZoneSource = SheetSource.Range("A1:F300")
 
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'
' Copie "Param Services" en "Param Catalogue"
'
Worksheets("Param Services").Activate
For Each LineSource In ZoneSource.Rows
      LineSource.Copy Destination:=CellTarget
      Set CellTarget = CellTarget.Offset(1)   ' Pour la prochaine ligne
Next
 
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
Peut être un peu compliqué mais j'ai pas pu faire mieux
Je fais du ligne à ligne car je compte faire autre chose sur les lignes quand déjà la mise en page marchera