La fonction VBA d'UCASE convertit une chaîne de caractères en majuscules.
UCase(texte)
Conversion d'une chaîne en majuscules :
Sub UCaseExample()
text = "Ref-45-X-876-rt"
text = UCase(text)
MsgBox text 'Retours: REF-45-X-876-RT
End Sub