VBA coller en fonction des lignes ajoutés

[martinigi]

Bonjour,
J'ai un tableau que je colle en VBA dans une autre feuille en colonne D.
Je souhaiterai ensuite coller la valeur d'une cellule R6 dans la colonne B devant chaque ligne ajoutées.
Sachant que mon tableau que je colle n'est jamais collé sur la même ligne.
Si quelqu'un a la solution
Je vous remercie

Voici ma formule pour l'instant :
Range("D"&Rows.count).End(xlUp).offset(1).paste

 

[gosselien]

Bonjour;

un morceau de fichier AVEC le code peut-être en le rendant anonyme 🙂

P.

 

[martinigi]

Voici le tableau :

 

[gosselien]

Bonjour,

ceci (sur base de ton exemple) convient ?

P.

Option Explicit

Sub Copie()
Dim Sh1 As Worksheet
Dim Last1&, Last2, Nb
Dim Last As Long
Dim Pl, Devis
Set Devis = [C23]
Set Sh1 = Sheets("feuil1")
Set Last2 = [H65000].End(xlUp)
Set Pl = Range("B25").CurrentRegion
Set Pl = Pl.Offset(1, 0).Resize(Pl.Rows.Count - 1, Pl.Columns.Count)
Nb = Pl.Rows.Count
Pl.Copy Last2(2)
Last = [G65000].End(xlUp).Row
Range("G" & Last + 1 & ":G" & Last + Nb) = Devis.Value
End Sub