Bonjours à tous

J'ai des chiffres dans des cellules (au format nbr) avec un nombre non fixe de ligne (selon utilisation).

J'ai des calcules a faire en fonction du nombre de ligne utilisé.
J'ai fais le code ci-dessous mais sa marche pas.
Je me doute que le problème vient du x dans les calcules mais je sais pas comment faire pour que sa marche.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
    x = Range("A65536").End(xlUp).Row
    Columns("D:E").NumberFormat = "#,##0.00"
    Range("E & (x+2)").FormulaR1C1 = "=SUM(R[-x]C:R[-2]C)"
    Range("E2").FormulaR1C1 = "=RC[-1]*RC[-2]"
    Range("E2").AutoFill Destination:=Range("E2:E & x"), Type:=xlFillDefault
Quelqu'un aurait une idée SVP
Merci d'avance de vote aide

.