Remplacement nbre par variable

Bonjour,

J'ai ce code :

' Calcul nbre apparitions - disparitions defauts

Range("C2").Select

ActiveCell.FormulaR1C1 = "=COUNTIF(RC[-2]:R[4998]C[-2],RC[-1])"

Range("C2").Select

Selection.AutoFill Destination:=Range("C2:C" & NbLines_DDs_Nbre), Type:=xlFillDefault

Range("C2:C" & NbLines_DDs_Nbre).Select

Je souhaiterais savoir comment remplacer la valeur 4998 dans la formule par la variable NbLines_DDs_Nbre

Je ne connais pas la syntaxe.

Merci pour votre aide

Bonjour,

à tester,

NbLines_DDs_Nbre = Cells(Rows.Count, 1).End(xlUp).Row
Range("C2:C" & NbLines_DDs_Nbre).Formula = "=COUNTIF($A$2:$A$" & NbLines_DDs_Nbre & ",A2)"
Rechercher des sujets similaires à "remplacement nbre variable"