Private Sub Worksheet_Change(ByVal zz As Range)
Dim Cellule As Range
If Intersect(zz, [A1:J68]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If zz.Count > 1 Then
For Each Cellule In zz.Cells
If Not IsDate(Cellule) Then Cellule = UCase(Cellule)
Next
Else
If Not IsDate(zz) Then zz = UCase(zz)
End If
Application.EnableEvents = True
End Sub