Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err_Worksheet_Change
Application.ScreenUpdating = False
Application.EnableEvents = False
' == la cellule B3 est tout en majuscule ===
If Not (Intersect(Target, ([B3])) Is Nothing) Then
[B3] = UCase([B3])
End If
' ==== ' les cellules B16 et B25 la première lettre est en majuscule. ====
If Not (Intersect(Target, Union([B16], [B25])) Is Nothing) Then
[Target] = UCase(Left([Target], 1)) & Right([Target], Len([Target]) - 1)
End If
Sort_Worksheet_Change:
plication.ScreenUpdating = True
Application.EnableEvents = True
Exit Sub
Err_Worksheet_Change:
MsgBox Err.Description, vbOKOnly + vbCritical, "ERREUR n°" & Err.Number
Resume Sort_Worksheet_Change
End Sub