Recherche ds fichier fermé incompabilité type

Bonjour,

Je souhaite effectuer une recherche dans un fichier fermé. Le problème est que j'ai testé mon code avec le fichier ouvert et tout fonctionnait bien, mais maintenant que je le test avec mon fichier fermé cela ne fonctionne plus!
Voila mon code:

Sub Recherche_cout()

Dim codefourn As String
Dim ligne As Range
Dim ligneref As Range
Dim refexp As String
Dim cout As Long
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim appExcel As Excel.Application 'Application Excel

'Ouverture et creation de l'application Excel
Set appExcel = CreateObject("Excel.Application")

'Ouverture du fichier Cout transport
Set wbExcel = appExcel.Workbooks.Open("H:\My Documents\CoutTrp.xls")
Set wsExcel = wbExcel.Worksheets(2)

codefourn = Range("Fourn").Value & "-caen"

'recherche le code fournisseur dans le fichier
Set ligne = wbExcel.Worksheets("4-cout_par_fournisseur").Range("A7:A875"). _
Find(What:=codefourn, After:=Range("A7"), LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

Cela bloc à cette recherche où il inscrit incompabilité de type.
J'ai essayé plusieurs solution comme:
Set ligne = wbExcel.wsExcel.Range("A7:A875"). _
Find(What:=codefourn, After:=Range("A7"), LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

mais rien ne fonctionne!
Merci d'avance pour votre aide!