XL 2019 forcer les majuscules dans les cellules

[My<3]

Bonjour, j'ai un fichier a partir duquel j'entre des informations et que j'envois par mail. Pour que ce soit visuellement uniforme je veux forcer le format des cellules ou sont inscrit les informations, en majuscule.
J'ai trouver cette formule et ca fait planter mon fichier avec un erreur en lien avec Range Formule trouver sur le forum
Est-ce que quelqu'un peu me donner une piste d'où provient le problème?

 

[job75]

Bonjour My<3,

Il faut désactiver les évènements et les réactiver après la modification :

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Target(1), Range("A1:J47")) Is Nothing Then Target(1) = UCase(Target(1))
    Application.EnableEvents = True
End Sub

A+

 

[job75]

Si l'on fait des entrées multiples, par exemple par copier-coller, utiliser :

Private Sub Worksheet_Change(ByVal Target As Range)
    Set Target = Intersect(Target, Range("A1:J47"))
    If Target Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each Target In Target 'si entrées multiples (copier-coller)
        Target = UCase(Target)
    Next
    Application.EnableEvents = True
End Sub