If R = "" Or R <> "A Rappeler" Or R <> "Répondeur" Then
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=""
R.Offset(0, 2) = ""
R.Offset(0, 3) = ""
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlNoRestrictions
Application.EnableEvents = True
Application.ScreenUpdating = True
Exit Sub
End If