Sub directions()
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.Unprotect Password:=""
If ActiveSheet.Cells(0, 0) = "Répondeur" Or ActiveSheet.Cells(0, 0) = "SMS" Then '"L7:L20000"
ActiveSheet.Cells(0, 5) = Date + 4
End If
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub