recherche de cellule avec deuxfichiers

Sub jenesaispastrop()
Dim wB As Workbook, wbOK As Boolean, i As Long, vin As String, Trouve As Range
For Each wB In Workbooks
    If wB.Name Like "webimmat623*.xls" Then
    'on attribut à la variable FichDep le nom du fichier trouvé
    FichDep = wB.Name
    wbOK = True
    Exit For
    End If
Next wB

'on envoie un message si que le fichier n'est pas ouvert et on quitte
If wbOK = False Then
MsgBox "Aucun fichier ayant ce nom"
Exit Sub
End If

'sinon, on boucle de B2 à la dernière cel non vide de la colonne B
For i = 2 To Range("B65536").End(xlUp).Row
    'on attribut à VIN la valeur de la cellule destination
    vin = Range("B" & i).Value
    'on cherche dans toutes les celules de la feuille 1 du classeur fichDep
    Set Trouve = Workbooks(FichDep).Sheets("Feuil1").UsedRange.Find(vin)
    'et si on trouve, on affecte la valeur de la cellule située à sa droite à la
    'cellule située 7 colonnes à droite de la cellule destination, donc colonne I
    If Not Trouve Is Nothing Then
        Range("I" & i) = Trouve.Offset(0, 1).Value
    End If
Next

End Sub

Sub CherchCodeClients()
Dim wB As Workbook, wbOK As Boolean, i As Long, VIN As String, Trouve As Range
For Each wB In Workbooks
    If wB.Name Like "webimmat623*.xls" Then
    FichDep = wB.Name
    wbOK = True
    Exit For
    End If
Next wB
If wbOK = False Then
MsgBox "Aucun fichier ayant ce nom"
Exit Sub
End If
For i = 2 To Range("B65536").End(xlUp).Row
    VIN = Range("B" & i).Value
    Set Trouve = Workbooks(FichDep).Sheets("1").Columns(4).Find(VIN)
    If Not Trouve Is Nothing Then
        Range("I" & i) = Trouve.Offset(0, 1).Value
    End If
Next

End Sub