Sub Annul_rétabli_orig()
'Annule der entrée et remet en état d'origine
'd'abord sur Feuil1 puis sur Feuil2
Application.ScreenUpdating = False
ActiveSheet.Unprotect
Selection.Value = Selection.Offset(1, 0).Value
Selection.Font.ColorIndex = 56
Sheets(Array('Feuil1', 'Feuil2')).Select
Sheets('Feuil1').Activate
Sheets('Feuil2').Select
ActiveSheet.Unprotect
ActiveCell.Activate
Selection.Value = Selection.Offset(1, 0).Value
Selection.Font.ColorIndex = 56
ActiveSheet.Protect
Sheets('Feuil1').Select
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub