bloquer une cellule en écriture

Salut

une petite macro à adapter

Attribute VB_Name = "InterdireSaisies"

'Interdire une saisie en dehors de cellules autorisées
'sans protéger la feuille ou le classeur

Sub PasTouche(LaCellule As Range, PlageAutorisée As Range)
'Laurent Mortézai, mpfe

If Intersect(LaCellule, PlageAutorisée) Is Nothing Then
MsgBox "pas touche!"
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub

'Puis appeler cette procédure dans une procédure Change (feuille)
'ou SheetChange (classeur)
'Par exemple, pour autoriser une saisie uniquement dans la plage
'A1:A10 de n'importe quelle feuille d'un classeur :

'Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
' PasTouche Target, Range("A1:A10")
'End Sub