Código VBA con su Excel en OneDrive

Bonjour à tous,

Tengo 26 archivos idénticos que llamo de la A a la Z y otro 99. Los archivos de la A a la Z están compartidos con diferentes usuarios (26) en Onedrive y contienen código VBA que funciona.

La manipulación para los archivos de la A a la Z es que el usuario selecciona el archivo a abrir en Onedrive
Clic derecho
Abrir con su Excel
Modifica los datos y los valida

He probado y funciona

Para el archivo 99, este tiene como objetivo transferir una hoja de cálculo de los archivos de la A a la Z hacia el archivo 99. Los archivos de la A a la Z están todos cerrados y se encuentran en el mismo directorio, incluido el archivo 99, es decir, Onedrive/nombre_de_directorio

El código VBA existente en el archivo 99 funciona en local. La apertura con su Excel en Onedrive funciona, sin embargo, el VBA falla

A continuación, el código para transferir mis datos, en negrita/itálico/subrayado el punto de falla

Gracias por su ayuda

Sub IMPORTACION()

' Procedimiento que permite la consolidación de varios libros
'
Dim wbk As Workbook
Dim wshScr As Worksheet
Dim wshDst As Worksheet
Dim celDst As Range
Dim rng As Range
Dim camino As String
Dim nombreLibro As String
Dim derLinea As Long

'Sheets("TRANS_CONSO").Select
Sheets("TRANS_CONSO").Activate
Range("B3:AK10000").ClearContents

' Detener la actualización de la pantalla
 Application.ScreenUpdating = False
 ' Definición de la hoja de destino
 Set wshDst = ThisWorkbook.Worksheets("TRANS_CONSO")
 
 ' Reinicio del archivo de síntesis de los rankings
 With wshDst

 ' Definición de la celda de destino de los datos
 Set celDst = .Range("B3")
 End With
 
 ' Paso n° 2: Recorrer todos los archivos del directorio actual
 camino = ThisWorkbook.Path & "\"

' Nombre del primer libro en el directorio
  nombreLibro = Dir(camino & "*.xlsm")

' Bucle para abrir los libros del directorio
 Do While Len(nombreLibro) > 0
 If nombreLibro <> ThisWorkbook.Name Then ' excepto este libro de consolidación

 ' Apertura del libro
 Set wbk = Workbooks.Open(camino & nombreLibro, False)
 ' Definición de la hoja de cálculo JUGADORES
 On Error Resume Next
 Set wshScr = wbk.Worksheets("TRANSFERT")
 On Error GoTo 0
 ' Comprobación de la existencia de la hoja
 If Not wshScr Is Nothing Then
 With wshScr
 ' Número de la última línea de datos
 derLinea = .Cells(.Rows.Count, "B").End(xlUp).Row
 ' Sustitución de las fórmulas por sus valores (para romper los enlaces)
 .UsedRange.Value = .UsedRange.Value
 ' Copia de todos los datos
 .Range("B3:AK" & derLinea).Copy celDst
 End With
 ' Definición de la próxima celda de destino de los datos
 Set celDst = celDst.Offset(derLinea - 2)
 
 End If
 ' Cierre del libro de datos sin modificarlo
 wbk.Close False
 End If
 ' Nombre del próximo libro
 nombreLibro = Dir
 
 Loop
 'clasificación según club +nombre apellido
 
 ActiveWorkbook.Worksheets("TRANS_CONSO").Sort.SortFields.Clear
 ActiveWorkbook.Worksheets("TRANS_CONSO").Sort.SortFields.Add Key:=Range( _
 "D3:D10000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
 xlSortNormal
 ActiveWorkbook.Worksheets("TRANS_CONSO").Sort.SortFields.Add Key:=Range( _
 "F3:F10000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
 xlSortNormal
 With ActiveWorkbook.Worksheets("TRANS_CONSO").Sort
 .SetRange Range("B3:AK10000")
 .Header = xlGuess
 .MatchCase = False
 .Orientation = xlTopToBottom
 .SortMethod = xlPinYin
 .Apply
 End With
 ' Mensaje
 Call TRANSFERT
 
 MsgBox " Importación y transferencia sin duplicados finalizadas "

End Sub