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 :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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