Private Sub Worksheet_Change(ByVal Target As Range)
Dim tablo, i&, x$
With [B3:C29] 'modifiable
tablo = .Value 'matrice, plus rapide
For i = 1 To UBound(tablo)
tablo(i, 1) = UCase(tablo(i, 1))
tablo(i, 2) = UCase(tablo(i, 2))
x = tablo(i, 2)
If Not (x Like "DT*" Or x Like "DADA" Or x Like "DODO") Then tablo(i, 2) = Application.Proper(x)
Next
Application.EnableEvents = False
.Value = tablo
Application.EnableEvents = True
End With
End Sub