Option Explicit
Sub CpyData()
Dim dlg&: Application.ScreenUpdating = 0: Worksheets("Feuil2").Select
With Worksheets("Feuil1")
dlg = .Cells(Rows.Count, 7).End(3).Row: If dlg = 1 And .[G1] = "" Then Exit Sub
.Range("G1:G" & dlg).Copy: [A1].Select: ActiveSheet.Paste , True
Application.CutCopyMode = 0: Selection.Resize(1).Select
End With
End Sub