Merci pour ton retour, mais la macro bloque au niveau de la modification que je viens de faire suite à ta proposition.
Ci joint une partie du code :
Merci de ton retour
Cdt
PAtrick
ActiveWindow.SmallScroll ToRight:=-6
Range("a").Select
Selection.Copy
Sheets("Suivi des Réalisations").Select
Range("A5").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A5").End(x1down).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("fichier intermediaire").Select
ActiveWindow.SmallScroll ToRight:=7
Range("colonne_Z").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Suivi des Réalisations").Select
ActiveWindow.SmallScroll ToRight:=7
Range("W2581").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I2594").Select
Sheets("fichier intermediaire").Select
Range("colonne_AB").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Suivi des Réalisations").Select
Range("Y2581").Select