Sub CopiePerfs1()
Application.ScreenUpdating = False
'
Sheets("Musique").Select
Range("b10:k33").ClearContent
'
Sheets("courses").Select
Range("b10:k33").Select
Selection.Copy
Sheets("musique").Select
Range("b10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
'
'Worksheets("résumé").Range("aj43") = Worksheets("courses").Range("B10").Value
Sheets("Musique").Select
Range("d9").Select
Application.ScreenUpdating = True
'
End Sub