Private Sub Trigramme_Change()
Dim t$, i%, j%, x$, n As Byte
t = Trigramme
For i = 1 To Len(t)
j = Asc(Mid(t, i, 1))
If j > 64 And j < 91 Or j > 96 And j < 123 Then
x = x & Chr(j)
n = n + 1
If n = 3 Then Exit For
End If
Next
Trigramme = UCase(x) '3 lettres en majuscules
End Sub