VBA - Macro Majuscule dans une colonne

Bonjour,

La macro fonctionnent très bien, le seul problème est lorsque je supprime les données de plus d'une case dans la colonne, la macro plante.

Quelqu'un a t-il une solution ?

La Macro :

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False
    If Not Intersect(Target, Columns("C")) Is Nothing Then
    Target = UCase(Target)
    End If

    If Not Intersect(Target, Columns("H")) Is Nothing Then
    Target = UCase(Target)
    End If

    If Not Intersect(Target, Columns("D")) Is Nothing Then
    Target = UCase(Target)
    End If
    Application.EnableEvents = True

End Sub

Cordialement,

DELCASSE Anthony

Bonjour,

Mettre en première ligne :

If Target.Count > 1 Or Target.Value = "" Then Exit Sub

Cordialement.

Merci !