Application.ScreenUpdating = False
With Sheets("AFFICHER")
.Range("D27:K27").Copy
Sheets("INSCRIPTIONS").Range("E2").PasteSpecial Paste:=xlPasteValues
Application.CuteCopyMode = 0
End with
With Sheets("ListeModif")
.Rows("3:3").Copy
.Rows("2:2").Insert Shift:=xlDown
Sheets("INSCRIPTIONS").Range("B3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With