Recopier valeur du dessus dans cellules vide jusqu'à la non vide suivante ?

Bonjour à tous, ravi de faire partie du forum. Ce super site m'a déjà bien aidé quelques fois

Dans un fichier de dizaines de milliers de lignes j'ai une colonne avec des nombres entre des lignes vides (colonne B de l'image)

J'aurais besoin d'une macro pour recopier ou dupliquer à chaque fois la valeur de la ligne dans les lignes vides du dessous en m'arrêtant dès que je rencontre une valeur afin d'obtenir la colonne D de l'image

Merci beaucoup pour votre aide

Corto

Bonjour,

Voici un essai à exécuter depuis la feuille concernée et qui traite la colonne 2. Il faut ici que la première cellule soit non vide et qu'il y ait une valeur non vide à la fin comme le FIN de l'exemple :

Sub test()
with activesheet
    dl = .cells(.rows.count, 2).end(xlup).row
    with .columns(2).resize(dl)
        t = .value
        for i = lbound(t) to ubound(t)
            if t(i, 1) = "" then t(i, 1) = t(i - 1, 1)
        next i
        .value = t
    end with
end with
end sub

Cdlt,

Ca marche nickel !

Un immense merci !