[Ti_]

Oui, chez moi ça marche parfaitement, mais j'y pense, ton clavier ne doit pas être configuré comme le mien (on en a discuté il y a quelque temps sur le forum de ces problèmes de clavier).
Bon, de toute façon, je suppose que tu veux simplement que tes saisies se fassent en majuscules dans tes cellules, alors dans ce cas, il peut être plus simple (et plus sûr) d'utiliser un autre événement, ainsi :

Private Sub Worksheet_Change(ByVal Target As Range)
Target = UCase(Target)
End Sub

Message édité par: Ti_, à: 23/08/2005 14:32