Sub defusion()
Dim RangeToCopyMFC As Range, X As Long
'Déprotection de la feuille active
ActiveSheet.Unprotect
Set RangeToCopyMFC = Selection.Cells
With Selection
.MergeCells = False
.Locked = False
For X = 1 To Selection.Cells.Count
Selection.Cells(1, 1).Copy
Selection.Cells(X).PasteSpecial Paste:=xlPasteAllMergingConditionalFormats, Operation _
:=xlNone, SkipBlanks:=False, Transpose:=False
Next X
End With
'Reprotection de la feuille active sans mot de passe
ActiveSheet.Protect
End Sub