Option Explicit
Dim anciennevaleur As String
Dim anciennead
Private Sub Worksheet_Change(ByVal Target As Range)
anciennead = Target.Address(0, 0)
On Error Resume Next
anciennevaleur = Target.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Select Case anciennevaleur
Case "A": Range(anciennead).Value = "Annulation"
Case "C": Range(anciennead).Value = "Création"
Case "M": Range(anciennead).Value = "Modification"
End Select
End Sub