Formule rang (VBA)

Bonjour,

Serait-il possible d'avoir de l'aide sur le cas ci-dessous ?
Le code en bleu ne fonctionne pas mais celui en blanc fonctionne seulement je voudrais éviter les formules en R1C1.

Pièce jointe 242349

code fonctionnel

Code:

---

1 2 3 4 5 6 7

Sub Macro7()   Dim test As Integer test = 11 Range("B1").FormulaR1C1 = "=RANK.EQ(R[11]C,R[" & test & "])-1"   End Sub

---

code non fonctionnel

Code:

---

1 2 3 4 5 6 7

Sub test()   Dim x As String x = "12:12" Range("B1").Formula = "=EQUATION.RANG(B12;" & x & ")-1"   End Sub

---

Une personne a une idée ?

Cordialement,
Florian

Code:

---

Range("B1").FormulaLocal = "=EQUATION.RANG(B12;" & x & ")-1"

---

Merci beaucoup je test