Sub CopierCollage_2()
With Sheets("Base")
Plg = .Range(.Cells(10, 2), .Cells(50, 2)).Value
End With
With Sheets("Sommaire").Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
.Value = "Semaine_" & Format(Date, "ww", , vbFirstFourDays)
.Offset(1, 0).Resize(UBound(Plg, 1), 1) = Plg
End With
End Sub