Bonsoir Ya_v_ka, Bonsoir le forum,
Essaie avec ce code :
Sub Macro3()
ActiveSheet.Unprotect
'Columns("K:K").Select
ActiveCell.EntireColumn.Select
'Range("K3").Activate
Cells(3, ActiveCell.Column).Activate
Selection.Copy
Selection.Insert Shift:=xlToRight
'Range("K3").Select
Application.CutCopyMode = False
ActiveCell.Select
Selection.Locked = False
Selection.FormulaHidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
À plus,
Robert