problème dans un code VBA pour determiner le nombre de valeur

Bonjour,

Je veux le nombre de valeur à partir d'une cellule dans la 14ème ligne jusqu'à la dernière ligne.
Voilà le code que j'utilise mais je sais qu'il est erroné:

Code:

---

1 2 3 4

Range("a65536").Select dernière_ligne2 = Selection.End(xlUp).Row Sheets("Feuil1").Cells(dernière_ligne2 + 1, 2).Select Selection.FormulaArray = "=COUNTA(B14:B & dernière_ligne2)"

---

Vous pouvez me corriger l'erreur dans la formule.

Cdt,
Skip

Code:

---

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

Dim LastLig As Long   With Sheets("Feuil1") LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row .Cells(LastLig + 1, 2).Formula = "=COUNTA(B14:B" & LastLig & ")"   'ou bien '.Cells(LastLig + 1, 2).FormulaR1C1 = "=COUNTA(R[" & 13 - LastLig & "]C:R[-1]C)"   'ou bien sans formule '.Cells(LastLig + 1, 2).Value = Application.CountA(.Range("B14:B" & LastLig)) End With

---