VBA Excel 2007 Minuscule -- Majuscule

Bonjour
existe t il un code pour que si la saisie (NOM) a été faite en minuscule elle soit transformée en majuscule avant d'être exploité par la fonction Recherche

voila ma macrocommande je voudrai la compléter

Sub Macro1()
'
On Error GoTo monerreur

NOM = InputBox( _
Prompt:="Ecrire les 3 Premières Lettres du Nom -- Majuscules -- SVP -- ", _
Title:="Associés de Travail")
'
'
Range("D56:Z127").Select
With Application.ReplaceFormat.Font
.FontStyle = "Gras"
.Size = 12
.Subscript = False
.Color = 275
End With
Selection.Replace What:=NOM, Replacement:=NOM, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=True
ActiveWindow.SmallScroll Down:=-36
Range("B56").Select
Exit Sub
monerreur:
End Sub


merci d'avance de votre aide elle est vraiment précieuse