Remplir les vides avec la cellule au dessus qui contient txt

bonjour a tous et bravo pour le forum

voila mon soucis qui me parait insurmontable .je souhaite dans la collone a remplir les lignes vides par la cellules du dessus qui commence par cv .le probleme c que la cellule ou se trouve cv peu se trouver 1 . 2 ou 3 lignes au dessus .

je joint un fichier qui explira certainement mieux mon besoin

merci de l aide cordialement

Bonjour

Sur base du fichier, code à essayer

Sub test()
Dim i As Byte
Dim ref
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
    If Range("A" & i) = "" Then Range("A" & i).Value = ref: i = i + 1
    If Range("A" & i).Value Like "*cv*" Then ref = Range("A" & i).Value
Next
End Sub

Si ok, merci de cloturer le fil en cliquant sur la case à cocher en vert à coté du bouton EDITER

Crdlt

respect exactement ce que je souhaitais un grand merci