Sub copier_coller()
'
Sheets("Jours").Select
Range("J11,J13,J15,J17,J19,J21,J23").Select ' les données de la feuille Jours
Range("J23").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("D5:D11").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("D4").Select
End Sub