Sub EffRDVannule()
Application.EnableEvents = False
Application.ScreenUpdating = False
Sheets("ArguAgent").Select
Range("E4").Select
Selection.ClearContents
Sheets("ArguAgence").Select
Range("E4").Select
Selection.ClearContents
Sheets("Prise RdV").Select
ActiveSheet.Unprotect Password:="mdp"
Range("D6,F6,G6,D8,J7,J8,L8,P7,D11,F11,D14:D20,F14:G14,H18,F20,D22,D24,F24,L10,L12,L15:L20,L22,L23,L25,N25,N20,P12:P17,R12,R18,R19,R20,Z22,R24").Select
Selection.ClearContents
'ActiveSheet.Shapes("RdVAttente").delete
Range("D6").Select
ActiveSheet.Protect Password:="mdp", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub