Erreur 438 encore et toujours

Bonjour,

J'ai écrit un code avec méthode FIND dans un ficher A qui va me chercher une colonne dans un fichier B
Et lorsque j'excute mon code j'ai cette belle fenetre qui me dit ERREUR 438 propritété ou méthode non geré par cet objet.

Je ne peux pas mettre en ligne les fichiers mais voici le bout de code que j'ai :

Var_Chemin = Application.GetOpenFilename("Database File (*.xlsm), *.xlsm")
            
FichierCible = ActiveWorkbook.Name
Workbooks.Open Var_Chemin, 0, ReadOnly:=False
            
FichierSource = ActiveWorkbook.Name
                
' Copie les colonnes a partir des lignes 10 du fichier B pour les mettre à partir de la ligne 2 dans les colonnes voulues dans le fichier A
ColB = Workbooks(FichierSource).Sheets("results").Find(what:="TIME", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlNext) 'la ligne que pointe le debogage 
derligB = Workbooks(FichierSource).Sheets("results").Range(Cells(Rows.Count, ColB)).End(xlUp).Row 'Temps
'Range("B" & Rows.Count)
'Range(Cells(Rows.Count,CelB)
Workbooks(FichierSource).Sheets("results").Range(Cells(10, ColB), Cells(derligB, ColB)).Copy Workbooks(FichierCible).Sheets("T1-A").Range("A2").Resize(derligB - 10)
Workbooks(FichierSource).Sheets("results").Range("B10:B" & derligB).Copy Workbooks(FichierCible).Sheets("T2-A").Range("A2").Resize(derligB - 10)
'Range("B10:B" & derligB)
'Range(Cells(10,CelB),Cells(derligB,CelB))

je pense que cela doit venir de ma méthode FIND mais je ne sais pas comment résoudre le problème!

Avant mon code fonctionnait très bien mais dans le fichier B, j'ai su que les colonnes pouvait changer de place selon les versions mais que les noms des colonnes étaient fixe, mon but était de repérer la colonne par con nom pour la prendre et la coller dans mon fichier A
j'espère avoir donné assez de détails


Merci par avance de votre aide

Feudora