'si tu as des cellules fusionnées exp D54:J56 il faut simplement appeler "D54" seul et idem avec "D60"
'et avec ce test If Range(R$).MergeCells Then Range(R$).MergeArea.ClearContents Else Range(R$).ClearContents
Sub EffRDVannule()
Application.EnableEvents = False: Application.ScreenUpdating = False
Sheets("ArguAgent").Range("E4").ClearContents
Sheets("ArguAgence").Range("E4").ClearContents
Sheets("Prise RdV").Visible = True: Sheets("Prise RdV").Select
ActiveSheet.Unprotect Password:="Krameri"
I = 0 'j'ai mis ensemble "J50", "F52", "D54", "F58", "D60"
Do: I = I + 1
R$ = Choose(I, "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", _
"J50", "F52", "D54", "F58", "D60", "")
If R$ = "" Then Exit Do
If Range(R$).MergeCells Then Range(R$).MergeArea.ClearContents Else Range(R$).ClearContents
Loop
Range("D6").Select
ActiveSheet.Protect Password:="Krameri", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Application.EnableEvents = True: Application.ScreenUpdating = True
End Sub