Sub Insertion_Action()
Worksheets("Action").Range("C2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy Destination:=Worksheets("Séries chronologiques").Range("A17")
Worksheets("Action").Range("G2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy Destination:=Worksheets("Séries chronologiques").Range("D17")
Worksheets("Action").Range("H2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy Destination:=Worksheets("Séries chronologiques").Range("J17")
End Sub