XL 2019 L'indice n'appartient pas à la sélection

Bonjour,

Sub SauvegarderFacture()
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim cheminwk2 As String
Dim invoiceSheet As Worksheet

' Copy data from "Facture" to "Invoice" sheet
Set invoiceSheet = ThisWorkbook.Sheets("Invoice")
invoiceSheet.Range("Facture").Value = invoiceSheet.Range("Invoice").Value

' Save current workbook path
Set wb1 = ThisWorkbook

' Open the destination workbook
cheminwk2 = "C:\Users\ThinkCentre\Desktop\Sauvegarde.xlsm"
Set wb2 = Workbooks.Open(cheminwk2)

' Copy the "Invoice" sheet to the destination workbook
invoiceSheet.Copy After:=wb2.Sheets(wb2.Sheets.Count)

' Rename the new sheet
With wb2.ActiveSheet
.Name = .Range("C8").Value & "-" & Year(.Range("F5").Value)
End With

' Save and close the destination workbook
wb2.Close SaveChanges:=True

' Reactivate the original workbook
wb1.Activate
End Sub