Sub CopieLignesRetoursClients()
'
' CopieLignesRetoursClients Macro
'
'
Application.ScreenUpdating = False
Sheets("Feuil1").Select
Rows("3:3").Select
Selection.RowHeight = 25
Rows("3:3").Select
Selection.Copy
ActiveSheet.Cells(Rows.Count, "A").End(xlUp)(2).Select
ActiveSheet.Paste
Rows("3:3").Select
Selection.RowHeight = 0
Range("A4").Select
ActiveWorkbook.Save
End Sub