Macro excel

Bonjour,

je ne suis pas un expert en programmation.

J'ai un excel avec des données sur 20 lignes admettons. J'ai fait un enregistrement d'une macro qui me permet d'affecter les valeurs présentes sur 1 ligne dans une autre feuille à différents endroits où j'en ai besoin.
Mais cela ne foncionne que pour 1 ligne et il faudrait que cela réalise l'opération pour les 20 lignes. J'ai pensé à une boucle for mais je n'arrive pas à comprendre comment repérer les lignes. Voilà un extrait de mon code

' Macro3 Macro
'

'
Sheets("Datasheet").Select
Sheets("Datasheet").Copy Before:=Sheets(18)
Range("J6:Q6").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[14]C[-1]"
Range("E17:F17").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[i]C[5]"
Range("G17:H17").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[i]C[4]"
Range("I17:J17").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[i]C[3]"
Range("K17:L17").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[i]C[2]"
Range("K18:L18").Select
Sheets("Datasheet (2)").Select
Range("E18:F18").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[2]C[9]"
Range("G18:H18").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[2]C[8]"
Range("I18:J18").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[2]C[7]"
Range("K18:L18").Select
ActiveCell.FormulaR1C1 = "='A1. ELA hot condition'!R[2]C[6]"
Sheets("Datasheet").Select
Sheets("Datasheet").Copy Before:=Sheets(19)

End Sub

Voilà pouvez-vous me filer un coup de main?