Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub 'on n'agit que sur la cellule A1
Application.EnableEvents = False
Select Case UCase(Target)
Case "C"
Target = "Congés"
Case "P"
Target = "Présent"
Case "R"
Target = "Récup"
'ajouter autant de case que necessaire
End Select
Application.EnableEvents = True
End Sub