Copy/past and 18 line jump

I am novice in VBA and I fight a little to arrive has to make what I want:

Here is the situation:
A Sheet " Result ": I have a name of equipment and the rest of the information has to fill with other tabs
Information is of the " old ", " current ,"date change, "...

Example of tab "Source":
I want to copy the information in corresponding compartment has the equipement in the resultat sheet. The 1st line of information goes to a line and the following one owes positionner18 lines more low may begin again the action to has the line 329 of the sheet "Source"
I have just make the action of copy:

Sub COPIERPLAGE()
Dim Maplage As Range
With ThisWorkbook.Worksheets("Source") 
Set Maplage = .Range("C4:G4") 
End With
Maplage.copy
ActiveSheet.Paste Destination:=Worksheets("Result").Range("D26")
Application.CutCopyMode = False 
End Sub

Now I wish to repeat this action to source has the line 329 of the tab and by jumping 18 lines has every time in the result sheet.
What is what somebody can depanner me?

Thank you in advance,
Best Regards,