Sub couperColler()
Dim shsem As Worksheet, shan As Worksheet
Dim dlsem As Integer, dlan As Integer
Set shsem = Sheets("Suivi broyage semaine")
Set shan = Sheets("Suivi Broyage 2022")
dlan = shan.Cells(Rows.Count, 1).End(xlUp).Row + 1
dlsem = shsem.Cells(Rows.Count, 2).End(xlUp).Row + 1
shsem.Range("B2:U" & dlsem).Cut shan.Range("A" & dlan)
End Sub