Bonjour tout le monde. je suis nouveau dans le monde de la programmation, je suis autodidacte en quelque sorte.
J'ai un petit problème avec une formule de calcul voici la macro:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub Macro1()
'
' Macro1 Macro
'
 
'
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
    Range("C4").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
    Range("C6").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
    Range("C7").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
    Range("C8").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
    Range("C9").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
    Range("C10").Select
 
End Sub

Au fait je souhaite automatiser la formule de la cellule (C2:C65536)
Merci d'avance pour votre aide