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