Merci valérie,
j'ai essayé ce que tu m'avais marqué. Hélas encore un soucis de copier coller sur le 2ème classeur.
Je te communique ma macro, et dis moi ce qu'il n'est pas bon, et pourquoi.
Je veux comprendre et apprendre.
Range("B6").Select
ActiveWindow.LargeScroll ToRight:=8
Range("B6:CK6").Select
Selection.Copy
Sheets("Feuil3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Rows("7:7").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Range("B7").Select
Sheets("Feuil1").Select
Range("B6").Select
ActiveWindow.LargeScroll ToRight:=8
Range("B6:CK7").Select
Selection.Copy
Workbooks.Open "C:\Laboratoire\Archives.xls"
Range("B7").Select
Selection.PasteSpecial Paste:=[g]xlPasteAll[/g],Operation:=xlNone, SkipBlanks:=False _
Rows("7:8").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Range("B7").Select
ActiveWorkbook.Save
ActiveWindow.Close
Range("D5").Select
Selection.ClearContents
Range("F6").Select
ActiveWindow.LargeScroll ToRight:=8
Range("F6:CK6").Select
Selection.ClearContents
ActiveWindow.SmallScroll ToRight:=-1
Range("B9").Select
ActiveWorkbook.Save
End Sub
Je te remercie à l'avance.
Bon app
@+
phil