J'ai essayé de cette façon :

Majuscule : (seul ça fonctionne)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
'Masjuscule automatique
Dim zz
Dim c As Range
Set zz = Intersect(Target, [A4:C1000,G4:J1000,M4:O1000])
If zz Is Nothing Then Exit Sub
Application.EnableEvents = False
 For Each c In zz.Cells
   c = UCase(c)
 Next
Application.EnableEvents = True
End Sub
____________________________________

Minuscule : (seul ça fonctionne)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
'Masjuscule automatique
Dim zz
Dim c As Range
Set zz = Intersect(Target, [K4:K1000])
If zz Is Nothing Then Exit Sub
Application.EnableEvents = False
 For Each c In zz.Cells
   c = LCase(c)
 Next
Application.EnableEvents = True
End Sub
Mais quand je laisse les deux dans la même feuille, j'ai un message d'erreur " Nom ambigu détecté : Worksheet_Change "

Merci de m'aider les amis !!!!!