Créer une macro qui déplace les valeurs d'une cellule si

[Olshamilo]

Bonjour toute nouvelle dans la macro je n'arrive pas à résoudre mon souci.
Je voudrais décaler les cellules si la cellule d'en haut rencontre le mot "line"
je joins un fichier exemple.
Deux colonnes (A et B) où j'ai les textes à traiter et la colonne final (D) celle que je souhaite obtenir
merci pour votre aide si vous pouvez

 

[youky(BJ)]

Bonsoir,
Ces quelques lignes de code doivent faire l'affaire.
Bruno

Sub line()
[D:D].Value = [B:B].Value
For k = 2 To [A65000].End(3).Row
If Left(Cells(k, 1), 4) = "line" Then _
Cells(k + 1, 4) = Cells(k + 1, 1)
Next
End Sub