[Ti_]

ah oui ma petite dame, je vois ce que c'est

essaie comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
Static OnIt%
if Not OnIt Then
OnIt = True
Target = UCase(Target)
OnIt = False
End If
End Sub