erreur d'execution 9

Sub copie_prix_facture()
    Dim fich1 As String, N_FACTURE As Integer
    fich1 = ThisWorkbook.Name

        Workbooks.Open Filename:="C:\b\facture\" & "fils.xlsm"    'chemin à préciser
        N_FACTURE = Sheets("facture").Range("K3")
        Windows("fils.xlsm").Activate
        numero_ligne = Sheets("base_facture").Columns("A:A").Find((N_FACTURE), SearchDirection:=xlNext).Row
        Windows(fich1).Activate
        Sheets("facture").Range("K3").Copy Workbooks("fils.xlsm").Sheets("base_facture").Cells(numero_ligne, 1)
        Sheets("facture").Range("K37").Copy Workbooks("bourbonetfils.xlsm").Sheets("base_facture").Cells(numero_ligne, 5)
        Application.DisplayAlerts = False
        Workbooks("fils.xlsm").Save
        Windows("fils.xlsm").Close
        ThisWorkbook.Save
        Application.DisplayAlerts = True

End Sub