Sub Consolidation_après_CoupDeLingette()
Dim plg As Range
With Sheets("Feuil1")
Set plg = .Cells(4, 1).Resize(.Cells(Rows.Count, 1).End(3).Row - 3, .UsedRange.Columns.Count)
End With
plg.Copy Workbooks("Sommaire x.xlsm").Sheets("sommaire ").[A1]
End Sub