Sub allerversmiseencarton()
'
' allerversmiseencarton Macro
' Macro enregistrée le 11/06/2010 par quinquis
'
ActiveSheet.Unprotect "293"
Sheets("Mise en carton").Unprotect "293"
With Selection
.Copy Destination:=Feuil2.Range("C65536").End(xlUp).Offset(1, 0)
.Delete
End With
Range("G7:G200").Select
Selection.Locked = False
ActiveSheet.Protect "293"
Sheets("Mise en carton").Protect "293"
End Sub