[SIZE=2]Select Case KeyAscii[/SIZE]
[SIZE=2]Case 97 To 122[/SIZE]
[SIZE=2]KeyAscii = KeyAscii - 32 ' A à Z[/SIZE]
[SIZE=2]Case 192, 194, 196, 224, 226, 228[/SIZE]
[SIZE=2]KeyAscii = 65 ' A[/SIZE]
[SIZE=2]Case 200 To 203, 232 To 235[/SIZE]
[SIZE=2]KeyAscii = 69 ' E[/SIZE]
[SIZE=2]Case 199, 231[/SIZE]
[SIZE=2]KeyAscii = 67 ' C[/SIZE]
[SIZE=2]Case 238, 206, 239, 207[/SIZE]
[SIZE=2]KeyAscii = 73 ' I[/SIZE]
[SIZE=2]Case 249, 217[/SIZE]
[SIZE=2]KeyAscii = 85 ' U[/SIZE]
[SIZE=2]Case 212, 244[/SIZE]
[SIZE=2]KeyAscii = 79 ' O[/SIZE]
[SIZE=2]Case 32, 39, 45, 48 To 57, 65 To 90 ' Espace, tiret, majuscules, apostrophe, nombres[/SIZE]
[SIZE=2]Case Else[/SIZE]
[SIZE=2]KeyAscii = 0[/SIZE]
[SIZE=2]End Select[/SIZE]
[SIZE=2]If KeyAscii <> 0 Then Majuscule = Chr(KeyAscii)[/SIZE]
[SIZE=2]End Function[/SIZE]