Private Sub Worksheet_Change(ByVal Target As Range)
Static EnCours As Boolean
If EnCours Then Exit Sub
EnCours = True
If Not Application.Intersect(Target, Range("A3:B3,H5,H7:H9")) Is Nothing Then
Set Target = Target(1)
Target.Value = Application.Proper(Target.Value)
End If
EnCours = False
End Sub