macrodetest2
' Macro enregistrée le 30/11/2011 par Lenny
'
'
Rows("9:9").Select
Selection.Copy
Windows("synthese_ok.xls").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub