countif et plage variable

Bonsoir,

Je cherche mais je ne trouve pas....

Dans le classeur joint, j'ai une plage de cellules qui contiennent des valeurs. Cette plage est appelée à varier en longueur (dans mon classeur d'origine, dont je n'ai mis ici qu'un exemple, la plage est plus longue ).

Je désire entrer en dessous de ma plage une formule NB.SI qui devrait me donner le nombre de cellules qui contiennent "x".

Pour cela j'ai écrit une petite macro (ci-dessous) mais ça ne marche pas car la formule ne semble pas accepter le nom de ma variable Plage1 constituée à partir de ma variable Fintab qui donne le numéro de la dernière ligne de ma plage...

Comment écrire le code pour qu'il prenne en compte ma variable de plage ?

ma macro (présente aussi dans le classeur) :
--------------------------------
Dim Fintab
Dim Plage1


Sub Fort()
'
Fintab = Range("D65536").End(xlUp).Row

Plage1 = "D2" & Fintab 'délolé mais je vois que ça me met un a la place de ": et D"

Range("D" & Fintab).Offset(2, 0).Select

ActiveCell.FormulaR1C1 = "=COUNTIF(plage1,x)"

End Sub
---------------------------------------------------

Merci d'avance de votyre aide....