Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("Sem7jours").Range("L4:AH40").Copy
With Selection
.PasteSpecial Paste:=xlPasteAll
.PasteSpecial Paste:=xlPasteValidation
.PasteSpecial Paste:=xlPasteColumnWidths
End With
[COLOR="RoyalBlue"][B]Premcel = ActiveCell.Address
dernlg = ActiveCell.Row + Selection.Rows.Count - 1
derncl = ActiveCell.Column + Selection.Columns.Count - 2
Range(Premcel & ":" & Cells(dernlg, derncl).Address).Select
Selection.Columns.Group[/B][/COLOR]
End Sub