Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [S:S]) Is Nothing Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
MsgBox "Vous ne devez pas toucher aux formules des cette colonne !", vbCritical, "OUPS..."
End If
End Sub