Copier coller

Bonjour, oui, que je voudrais répéter une cinquantaine de fois en incrémentent de 1 a chaque fois et pour ne pas faire un bête copier coller et changer à chaque ligne la valeur, cela m'épargnerait du temps et mes connaissances. Ex :
If [e10].Value > [c10].Value Then [c10].Value = [e10].Value
If [e11].Value > [c11].Value Then [c11].Value = [e11].Value
If [e12].Value > [c12].Value Then [c12].Value = [e12].Value
If [e13].Value > [c13].Value Then [c13].Value = [e13].Value
If [e14].Value > [c14].Value Then [c14].Value = [e14].Value

A tantôt.

@bomber368peut-être ainsi:

Dim i As Long
For i = 0 To 100
    If [e10].Offset(i, 0).Value > [c10].Offset(i, 0).Value Then [c10].Offset(i, 0).Value = [e10].Offset(i, 0).Value
Next i

ou, comme tu préfères:

Dim lig As Long
For lig = 10 To 110
    If Cells(lig, 5).Value > Cells(lig, 3).Value Then Cells(lig, 3).Value = Cells(lig, 5).Value
Next lig