Sub Copier_Inscrits_JunSenF()
Dim CLASSEUR As Workbook
Dim SOURCE As Range, DESTINATION As Range
Set SOURCE = ThisWorkbook.Sheets("JSF").Range("B5:B103")
Set CLASSEUR = Workbooks("Classement 2014.xlsm")
Set DESTINATION = CLASSEUR.Sheets("JunSenF").Range("B7,K7,U7,AI7,AS7,BC7,BQ7,BZ7,CJ7,CX7,DP7,EN7")' cela fonctionne
DESTINATION.PasteSpecial xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ' Erreur
CLASSEUR.Activate
DESTINATION.Select.Range (A7)
End Sub