VBA chercher non vide et compléter

Sub test()
    With Worksheets("feuil1")
        derlig = .Range("A" & Rows.Count).End(xlUp).Row     'derniere cellule non vide colonne A
        TInfos = .Range("A1:A" & derlig).Value                       'mise en memoire plage
    End With
    Nb = UBound(TInfos)     'longueur tableau
    'boucle sur tableau
    For N = 2 To Nb
        If TInfos(N, 1) = "" Then TInfos(N, 1) = TInfos(N - 1, 1)           'si vide mettre infos-1
    Next N
    Worksheets("feuil1").Range("A1").Resize(Nb) = TInfos        'ecriture plage cellules
End Sub