Excel - Transformar minúsculas en mayúsculas

Toc-Toc. ¡Soy yo de nuevo!
Como era de esperar, la bufonada del Berry no ha hecho todo bien.
He probado la segunda solución.
Ya no encontré en la lista de verificación "Microsoft Forms X. object Library", sin embargo, había 4 otras líneas que estaban marcadas:
Visual Basic for applications
Microsoft Excel 14.0 Objects Library
OLE automation
Microsoft Office 14.0 Objects Library
Así que lo dejé así.

He copiado y pegado:
Public Const monBouton As String = "Pegar en Mayúsculas"

Sub Ouverture()
Dim NewCtrl As Object
Fermeture
With CommandBars("Cell")
Set NewCtrl = .Controls.Add(Type:=1, ID:=1, before:=3)
With NewCtrl
.Caption = monBouton
.OnAction = "test1"
.FaceId = 98
.Tag = ""
End With
End With

End Sub
Sub Fermeture()
'Supresión del botón
On Error Resume Next
CommandBars("Cell").Controls(monBouton).Delete
On Error GoTo 0
End Sub

Sub test1()
Dim MyDataObj As New DataObject, Tableau() As String, TableauColle() As String, Var2 As String, i As Long

MyDataObj.GetFromClipboard
Var2 = MyDataObj.GetText
Tableau = Split(Var2, Chr(10))
For i = 0 To UBound(Tableau) - 1
Tableau(i) = Left(UCase(Tableau(i)), Len(Tableau(i)) - 1)
Next
ActiveCell.Resize(UBound(Tableau)) = Application.Transpose(Tableau)
End Sub

Luego
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Fermeture
End Sub

Private Sub Workbook_Open()
Ouverture
End Sub

El problema es que después de haber copiado mi columna del libro 1 y que quiero hacer clic derecho para pegar en mayúsculas, la opción no aparece en la ventana para el pegado como aparece en tu ejemplo.

Al final, no funciona mientras que en tu ejemplo, es perfecto. Así que he vuelto a meter la pata en algún lugar.
¿Esto se debe a que he dejado la primera línea que aparece por defecto en las ventanas "Módulo" y "Visual basic" con los códigos?

Otro indicio, cuando quise guardar mi archivo, apareció una ventana diciendo que las funcionalidades no podían ser guardadas si el libro no contenía macros. Así que la bufonada enmascarada del Berry se equivoca.

Perdona por ser tanto una carga, sin embargo, parece simple, y es algo que realmente me sería útil, lo peor es que lo he hecho no sé cuántas veces pero no logro ver dónde he metido la pata.


https://www.cjoint.com/?BFuqkMnzr8h
https://www.cjoint.com/?BFuqwEMW0iO
--
De la humildad, el respeto y el compartir nace la fuerza.

Hola Pijaku y gracias por tu respuesta tan rápida.

De hecho, sé cómo transformar minúsculas en mayúsculas, pero lo que busco es saber si existe un truco para copiar una columna entera tal cual (minúsculas y mayúsculas) y hacer que todo se transforme automáticamente en mayúsculas al momento de pegar en la hoja de formato.
Te agradezco por tu sentido de la pedagogía, es un ejercicio que no es tan fácil.

Un cordial saludo.

Hay una mejora, ahora cuando quiero pegar los datos, aparece la opción pegar en mayúsculas, pero cuando hago clic en ella, aparece un mensaje (que te adjunto) y no se copia nada.
Si te parece bien, también te adjunto una copia de mi archivo, por si quieres echar un vistazo para ver qué está mal, porque de verdad estoy muy perdido.

https://www.cjoint.com/?BFuwtzVl1Po
https://www.cjoint.com/?BFuwwuKIKzd

Mil gracias

Buenas noches.
Tu truco de inserción ha funcionado, ahora la referencia buscada aparece.

Funciona y es gracias a ti, tus habilidades y tu paciencia. Te estoy agradecido a un nivel que no puedes imaginar. Si te parece bien, mañana te explicaré por qué por privado.

Última pequeña pregunta, al abrir o cerrar el archivo, no tengo un mensaje pidiéndome que active las macros sabiendo que he marcado la opción desactivar macros con notificación, ¿es normal?

Así que millones de GRACIAS. Gracias también a Philou10120 por su intervención.

Atentamente