Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then End
If Not Application.Intersect(Target, Range("D29")) Is Nothing Then 'cellules à traiter
If Not IsEmpty(Target) Then
Application.EnableEvents = False
Target = WorksheetFunction.Proper(Target) ' si première lettre en majuscule uniquement
Target = Replace(Target, " Et ", " et ")
Target = Replace(Target, "(S)", "(s)")
Application.EnableEvents = True
End If
End If
End Sub