Sub CopiePerfs1()
Application.ScreenUpdating = False
'
'Range("b10").Copy Range("p2")
Sheets("Musique").Select
Range("c3:e22").ClearContents
Sheets("résumé").Select
Range("v6:z6").ClearContents
'
Sheets("courses").Select
Range("m14:o33").Select
Selection.Copy
Sheets("musique").Select
Range("c3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
'
Worksheets("résumé").Range("aj41") = Worksheets("courses").Range("B10").Value
Sheets("résumé").Select
Range("d9").Select
Application.ScreenUpdating = True
End Sub