[Sub MWZurückstellenCopierColler2()
'
' MWZurückstellenCopierColler2 Macro
ActiveSheet.Unprotect
ActiveSheet.Range("B7").Select
Sheets("Zurückstellen").Range("B7:AV257").Copy
ActiveSheet.Paste
Application.CutCopyMode = False
Range("N3:R3").ClearContents
Range("N3:R3").Select
'Verrouillage feuille
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True
End Sub
]