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")' celle-ci fonctionne
Set DESTINATION = CLASSEUR.Sheets("JunSenF").Range("K7")' ne fonctionne pas
Set DESTINATION = CLASSEUR.Sheets("JunSenF").Range("U7")' ne fonctionne pas
Set DESTINATION = CLASSEUR.Sheets("JunSenF").Range("AI7")' ne fonctionne pas
Set DESTINATION = CLASSEUR.Sheets("JunSenF").Range("AS7")' ne fonctionne pas
Set DESTINATION = CLASSEUR.Sheets("JunSenF").Range("BC7")' ne fonctionne pas
Set DESTINATION = CLASSEUR.Sheets("JunSenF").Range("BQ7")' ne fonctionne pas
Set DESTINATION = CLASSEUR.Sheets("JunSenF").Range("BZ7")' ne fonctionne pas
Set DESTINATION = CLASSEUR.Sheets("JunSenF").Range("CJ7")' ne fonctionne pas
Set DESTINATION = CLASSEUR.Sheets("JunSenF").Range("CX7")' ne fonctionne pas
Set DESTINATION = CLASSEUR.Sheets("JunSenF").Range("DP7")' ne fonctionne pas
Set DESTINATION = CLASSEUR.Sheets("JunSenF").Range("EN7")'celle-ci fonctionne
SOURCE.Copy
DESTINATION.PasteSpecial xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False ' ici il me met une erreur
CLASSEUR.Activate
DESTINATION.Select.Range (A7)
End Sub