VBA - Macro Majuscule/Insertion ligne

Bonjour à vous,

J'ai un petit problème que je n'ai pas réussi à résoudre, sur une macro qui fait bugger une autre.
La première qui met en majuscule tout texte entré dans la colonne C, H et D. Affecté au code de la feuille, elle fonctionne.
La deuxième qui permet d'insérer une ligne au début de mon tableau pour saisir. Affecté à une forme, elle fonctionne.

Le problème : Lorsque je clique sur la macro "insertion de ligne", la macro pour "majuscules" ne fonctionne plus.

Si quelqu'un peut m'aider, merci,

Macro "insertion ligne" :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub inserer_ligne()   Range("o4: x4").Select Application.CutCopyMode = False Selection.Copy Rows("3:3").Select Selection.Insert Shift:=xlDown Range("B3").Select   End Sub

---

Macro "majuscule" : :

Code:

---

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

---

Citation:

---

Envoyé par Antho-

---

Bonjour,

Il vous faut empêcher l'événement en cas de sélection multiple (cas d'une nouvelle ligne).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Count > 1 Then Exit Sub   '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

---