Je n'arrive pas à reproduire ton erreur.
Peux-tu essayer :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("C4:AC7")) Is Nothing Then Target = UCase(Target)
Application.EnableEvents = True
End Sub
Cependant, si tu as juste OUI ou NON dans tes cellules, je ne vois pas l'intérêt d'un code.