XL 2016 Code VBA copier une valeur sur une plage de données dont les cellules de début et fin varient

[CD38]

Bonjour,
Ma demande est un peu difficile à exprimer désolé
Je cherche un code VBA me permettant de copier une valeur sur une plage de données jusqu'à la dernière ligne non vide de la colonne précédente.

Ci joint un fichier excel pour exemple.

J'ai un code qui fonctionne lorsque c'est la première fois que je dois copier l'information à partir de la ligne 2 jusqu'à la ligne 10.

Range("d2").FormulaR1C1 = "LBE_Y"
Selection.Copy
Selection.AutoFill Destination:=Range("d2:d" & Range("c" & Rows.Count).End(xlUp).Row)

Ensuite je copie/colle d'autres informations sur les colonnes A;B;C;E et F à partir de la ligne 11 puis en Cellule D11 je dois renseigner "BUD-Y1" puis copier/coller En valeur cette cellule sur les cellules en dessous jusqu'à la ligne 19.

Je répéte ces actions plusieurs fois donc mes lignes de départ et de fin varie.

J'ai trouvé un code mais je voulais savoir si il n'y avait pas plus simple

Range("d2").Select
Selection.End(xlDown).Select
ActiveCell.FormulaR1C1 = "BUD2"
Selection.Copy
ActiveCell.Offset(0, -1).Select
Selection.End(xlDown).Select
ActiveCell.Offset(0, 1).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

J'espère avoir été claire
D'avance merci pour votre aide
Caroline

 

[Phil69970]

Bonjour Caroline, le forum

Je te propose ceci.

@Phil69970

 

[CD38]

Bonjour,

Merci pour ton retour,
désolé pour ma réponse tardive j'étais en congés.
je vais regarder ta proposition afin de l'appliquer à mon fichier. Je te tiens au courant si cela fonction

caroline