à mon avis qq chose de ce genre doit marcher :
(au préalable donne un nom au range de debut du tableau, par ex : tab)....(tu te positionnes sur le cellule de la 1ere donnée, dans la "zone nom" tu marques "tab" et tu tapes entrée)
dim i, nb_rempli as integer
nb_rempli = 0
for i = 1 to taille_tableau '(la valeur que tu veux...)
if ([tab].cells(i,1) = null) or ([tab].cells(i,1) = "") or ([tab].cells(i,1) = 0) then
nb_rempli = nb_rempli +1
end if
next i