Bonjour,
oups désolé, il faut mettre UserInterfaceOnly:=True
Sub Macro1()
Range("F1:G1").EntireColumn.Hidden = True
End Sub
Sub Protege()
Sheets("Feuil1").Protect Password:="", _
DrawingObjects:=False, _
Contents:=True, Scenarios:=False, _
AllowFormattingCells:=False, _
AllowFormattingColumns:=False, _
AllowFormattingRows:=False, _
AllowInsertingColumns:=False, _
AllowInsertingRows:=False, _
AllowInsertingHyperlinks:=False, _
AllowDeletingColumns:=True, _
AllowDeletingRows:=False, _
AllowSorting:=False, _
AllowFiltering:=False, _
AllowUsingPivotTables:=False, _
UserInterfaceOnly:=True
End Sub
Sub DéProtege()
Sheets("Feuil1").Unprotect Password:=""
End Sub