Transformation code pour avoir formule

Bonjour,
Comment puis je modifier ce code pour faire apparaitre la formule de la somme au lieu de renvoyer directement la valeur

Code:

---

1 2 3 4 5 6 7 8 9

Dim cellule As Range Dim Somme As Single Somme = 0 For Each cellule In Range("C9:C" & Tot.Row - 1) If cellule.Font.Color <> vbCyan Then Somme = Somme + cellule.Value End If Next Range("C" & Tot.Row).Value = Somme

---

Merci par avance

Bonjour.

Tu peux essayer :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim cellule As Range Dim Somme As String 'Dim Tot As Excel.Range   'Set Tot = Range("C14")   For Each cellule In Range("C9:C" & Tot.Row - 1) If cellule.Font.Color <> vbCyan Then Somme = Somme & "+" & cellule.Address End If Next   Somme = "=" & Mid$(Somme, 2) Range("C" & Tot.Row).Formula = Somme

---

Cordialement,

PGZ

merci pgz je vais m'ateler à la tache et essayer de faire tourner ça.