Compter des cellules différentes

[steph05]

Bonjour,

Je souhaite compter le nombre de cellules différentes dans une colonne. (compter le nombre de lignes sans prendre en compte les doublons).

J'ai installé une fonction nb.diff qui le fait, mais ma dernière cellule n'est pas fixe. Je ne sais donc pas comment faire pour sélectionner ma plage de données.

J'ai écrit ceci mais ça ne marche pas (je veux compter la colonne A et mettre le résultat en B1):

Range("A1").Select
Selection.End(xlDown).Select
Range("B1") = "=NB.DIFF(RC[-1]: activecell)"

Sinon, y-a-t-il une autre solution ?
Merci pour votre aide