Fusionner des cellules avec une feuille protégé - Page 2

Public Sub fusionner()
Dim plage As Range, co As Long
If Selection.Count > 1 Then Exit Sub
co = Selection.Column
If co <> cosel Then Exit Sub
ActiveSheet.Unprotect mdp
Application.DisplayAlerts = False
Set plage = Selection.Resize(1, 3)
plage.ClearContents
plage.Cells(1, 1).Locked = False
plage.MergeCells = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, _
            Scenarios:=False, AllowFormattingCells:=True, _
            AllowFormattingColumns:=True, AllowFormattingRows:=True
ActiveSheet.Protect mdp
Application.DisplayAlerts = True
End Sub

Cdlmnt