dern_ligne_tableau1 = Sheets("Avancement_tri").Range("A" & Rows.Count).End(xlUp).Row
Sheets("Avancement_tri").Range("F9:P9").Select
Sheets("Avancement_tri").Range(Selection, Selection.End(xlDown)).Delete Shift:=xlUp
Sheets("Avancement_tri").Range("F8:P8").AutoFill Destination:=Range("F8:P" & dern_ligne_tableau1)
'Jusque là, tout va bien...
'C'est le bloc en dessous qui merdouille
Sheets("Avancement_tri").Range("A8:P" & dern_lign_tableau1).select
Selection.copy
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select