Sub MacroExemple()
With ActiveSheet
.Cells.Locked = True
.Cells.FormulaHidden = True
With .Range("B4:C4,E6:G9")
.Locked = False
.FormulaHidden = False
End With
.Protect "0000", userinterfaceonly:=True
End With
End Sub
Bonsoir,
Merci pour vos réponses mais en réalité Papou-net je veux laisser libre les cellules .Range("B4:C4,E6:G9") alors qu'avec ton code en faite je vérouille ces cellules comment faire dans ce cas pour sélectionner toutes les cellules sauf .Range("B4:C4,E6:G9").
Merci