Sub Mise_a_jour_urgents()
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.Calculation = xlManual
Sheets("SuivisAppels").Select
For i = 7 To 50000
ActiveSheet.Unprotect Password:=""
If Cells(ActiveCell.Row, 20) < Now + 1 And Cells(ActiveCell.Row, 40) = 1 Then 'répondeurs à venir
Cells(ActiveCell.Row, 37) = 1
Cells(ActiveCell.Row, 40) = ""
End If
If Cells(ActiveCell.Row, 20) < Now + 1 And Cells(ActiveCell.Row, 39) = 1 Then 'à rappeler
Cells(ActiveCell.Row, 36) = 1
Cells(ActiveCell.Row, 39) = ""
End If
If Cells(ActiveCell.Row, 20) < Now + 1 And Cells(ActiveCell.Row, 38) = 1 Then 'ok rdv
Cells(ActiveCell.Row, 33) = 1
Cells(ActiveCell.Row, 38) = ""
End If
Next
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
End Sub