Inserer la fonction NB dans une macro

Bonjour,
je viens de créer une macro qui s’exécute entre changeant le paramètre i entre 1 et un nombre qui devrait être égal au résultat de la fonction "NB" c ad jusqu'a : nb(BD!D5:D60) , mais le code s’arrête dans la 3 ème ligne de la macro :


Sub Imprimer()

Dim i As Integer
For i = 1 To nb(BD!D5:D60)
Range("Z7").Value = i
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True, IgnorePrintAreas:=False
Next
End Sub


merci d'avance