Erreur Code Macro Excel

Private Sub CommandButton1_Click()

Dim sFicRegistre    As String
Dim sPathRegistre   As String
Dim WbkR            As Workbook
Dim WbkC            As Workbook
Dim ShtR            As Worksheet
Dim ShtC            As Worksheet
Dim li              As Long

  sFicRegistre = "Registre.xlsm"
  sPathRegistre = "P:\Bon de Commande\"
  Set WbkC = ThisWorkbook
  Set ShtC = ThisWorkbook.Sheets("Feuil1")
  ' Ouvrir le classeur en OLE
  Set WbkR = GetObject(sPathRegistre & "\" & sFicRegistre)
  Set ShtR = WbkR.Sheets("Registre")
  
  
  
  WbkC.Sheets("Feuil1").Range("G2:G").Copy _
                                      WbkR.Sheets("Registre").Range("G2:G")
                                      
  WbkC.Sheets("Feuil1").Range("H2:H").Copy _
                                      WbkR.Sheets("Registre").Range("H2:H")
                                      
  WbkC.Sheets("Feuil1").Range("I2:I").Copy _
                                      WbkR.Sheets("Registre").Range("I2:I")
                                      
  WbkC.Sheets("Feuil1").Range("J2:J").Copy _
                                      WbkR.Sheets("Registre").Range("J2:J")
                                      
  WbkC.Sheets("Feuil1").Range("K2:K").Copy _
                                      WbkR.Sheets("Registre").Range("K2:K")
                                      
  WbkC.Sheets("Feuil1").Range("L2:L").Copy _
                                      WbkR.Sheets("Registre").Range("L2:L")
  
  
  WbkR.Close savechanges:=True

End Sub