Bélug : Effectivement ca résoudrais le pb merci.
V_Elbie : Je n'ai pas trouvé de fonction qui permettait de sélectionner une cellule mais qu iempechait toute modification.
Mais je viens de trouver une tite fonction qui pourrait faire quelque d'assez propre :
Private Sub PasTouche(LaCellule As Range, PlageAutorisée As Range)
'Laurent Mortézai, mpfe
If Intersect(LaCellule, PlageAutorisée) Is Nothing Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub
Avec un appel de cette fonction sur
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
PasTouche Target, Range("A1:A1")
End Sub
Il me reste juste une chose à voir pour quoi ca me marque une erreur "1004" ... "La méthode Undo de l'objet _Application a échoué.