Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False 'pour éviter de relancer alors qu'on modifie
If Target.Address = "$J$14" Then [J14] = LCase([J14]): GoTo fin
If Target.Address = "$K$4" Then Target = Application.Proper(Target): GoTo fin
Select Case Target.Address(0, 0)
Case "A4", "G25", "K7"
Target.Value = UCase(Target.Text) 'j'utilise la propriété text
End Select
fin:
Application.EnableEvents = True 'on remet
End Sub