Créer une formule avec une macro

Bonjour à tous,

Voici ma question,

Est-ce possible de créer une formule dans une colonne seulement lorsqu'il y a quelque chose d'inscrit dans la colonne.

La raison est que sinon le ficher devient beaucoup trop lourd:

Par exemple si dans la Sheet1 colonne A1 il y a des valeurs d'inscrit jusqu'à A10,

Alors dans la Sheet2 il faudrait que la cellule A1= =Sheet1!A1/Sheet1!A2
dans la cellule A2= =Sheet1!A2/Sheet1!A3 .....
et ce jusqu'à (A10) car cette fois-ci il y à 10 valeurs dans la colonne A de la Sheet1

Guiv avait créer ce code, mais celui-ci m'indique une erreur

Private Sub Worksheet_Change(ByVal Target As Range)

Ligne = Target.Row
Colonne = Target.Column

If Not Intersect(Target, Range("A2:CC65536")) Is Nothing _
And Target.Count = 1 _
And Target.Value <> 0 Then

Sheets("Sheet2").Cells(Ligne - 1, Colonne).FormulaR1C1 = "=Sheet1!RC/Sheet1!R[1]C"

End If
End Sub

Cliquez pour agrandir...