Problème à DIR

Do While NF <> ""
        N = N + 1
        Cells(N, 3) = NF 'Insrire dans la cellule avant de passer au Dir pour le suivant
       NF = Dir    ' suivant
    Loop

 Do While NF <> ""
        N = N + 1
        NF = Dir    ' suivant
        Cells(N, 3) = NF
    Loop

Sub Problème_A_Dir()
'Creer un dossier C:\Temp. Copier 4 fichier xls dans C:\Temp
'Sur une feuille excel, en A1, taper C:\Temp
'puis lancer la macro (Alt+F8) en étant en A1.
    N = 0
    Nf = Dir(ActiveCell.Value & "\*.xls")
    Do While Nf <> ""
        N = N + 1
        Cells(N, 3) = Nf
        Nf = Dir    ' suivant
    Loop
    ActiveCell.Offset(0, 1) = N
End Sub