PB avec Ucase dans mon code

Re bonjour le forum

S'il vous plait, j'ai le code suivant qui rappel des données externe (autre classeur excel) vers mon UserF.
Mais je voudrais que les informations meme saisies initialement en minuscule apparaissent en majuscule dans les cellules de l'USER.

PB, je ne parvient pas a mettre cette fonction proporement dans mon code.

Merci beaucoup
-------
Workbooks.Open ('c:\\fichier.xls')
Dim classeurDestination As Workbook
Dim feuilleDestination As Worksheet
Set classeurDestination = Workbooks('fichier.xls')
Set feuilleDestination = classeurDestination.Worksheets('DEMANDES')
Dim Plg As Variant, I As Integer, L As Integer
Dim nom

nom = Array('Ident', etc..................)

With ListBox2
For I = à To .ListCount - 1
If .Selected(I) = True Then
L = I + 3
Exit For
End If
Next I
End With
With Worksheets('DEMANDES')
Plg = .Range('B' & L & ':BO' & L)
End With
For I = 1 To UBound(Plg, 2)
Controls(nom(I - 1)) = Plg(1, I)
Next I
classeurDestination.Close
MsgBox ('DOSSIER TROUVE')
End Sub
-----------------