Erreur vba

Private Sub Nouvelle_Saisie_Click()

  Dim Cel As Range, xchoixnosem, semExist As Range
  Dim i As Long, xdlgn As Long, xdlgn1 As Long
  Dim wb As Workbook
  
  Application.ScreenUpdating = False
  
  ' Contrôle de la saisie
  xchoixnosem = InputBox(Prompt:="Indiquez le numéro de semaine (chiffre compris entre 1 et 52), puis Valider par la touche Entrée du clavier ?", Title:="Choix de la semaine")
      ' Si bouton Annuler
      If xchoixnosem = "" Then Exit Sub
      If xchoixnosem < 1 Or xchoixnosem > 52 Then
          MsgBox "Le numéro de la semaine doit être un chiffre compris entre 1 et 52.", vbCritical, "Choix de la semaine"
          Application.ScreenUpdating = True
          Exit Sub
      End If

  ' Extraction des données
  
    Dim MaSelection As Range
    Dim wb_destination As Workbook
    Dim ws_destination As Worksheet
 
    Set wb_destination = Workbooks("MC_essai2.xlsm")
    Set ws_destination = wb_destination.Worksheets("Saisie")
 
    Dim Wb_source As Workbook
    Dim Ws_source As Worksheet
    Dim ZoneColle As Range
   
    ' Récupération des données dans classeur fermé que j'ouvre !!
 
    Workbooks("MC_essai2.xlsm").Worksheets("Saisie").Cells.ClearContents
 
' Premier atelier

    Set Wb_source = Workbooks.Open(Filename:="\\Gpao\commun\30_QUALITE\\307_Gestion_de_service\Lyse\Main_courante_atelier\MC_Plastique.xlsm")
    Set Ws_source = Wb_source.Worksheets("Synthese")
    Set MaSelection = Ws_source.Range(Range("A5"), Cells(Range("B65536").End(xlUp).Row, 19))        MaSelection.SpecialCells(xlCellTypeVisible).Copy _
            ws_destination.Range("A5")
    Wb_source.Close False
 
' zonecolle fait référence à Workbooks("MC_essai.xlsm").Worksheets("Saisie")

    Set ZoneColle = ws_destination.Range("a65536").End(xlUp).Offset(1, 0)
    Set Wb_source = Workbooks.Open(Filename:="\\Gpao\commun\30_QUALITE\\307_Gestion_de_service\Lyse\Main_courante_atelier\MC_Expédition.xlsm")
    Set Ws_source = Wb_source.Worksheets("Synthese")
    'Ws_source.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:= _
                                                       xchoixnosem.Text
    Set MaSelection = Ws_source.Range(Range("A5"), Cells(Range("B65536").End(xlUp).Row, 19))
    ' MaSelection.Select
    MaSelection.SpecialCells(xlCellTypeVisible).Copy _
            ZoneColle
    Wb_source.Close False
 
'Prochain atelier

    Set ZoneColle = ws_destination.Range("a65536").End(xlUp).Offset(1, 0)
    Set Wb_source = Workbooks.Open(Filename:="\\Gpao\commun\30_QUALITE\\307_Gestion_de_service\Lyse\Main_courante_atelier\MC_Finition.xlsm")
    Set Ws_source = Wb_source.Worksheets("Synthese")
    'Ws_source.ListObjects("Tableau1").Range.AutoFilter Field:=2, Criteria1:= _
                                                      xchoixnosem.Text
    Set MaSelection = Ws_source.Range(Range("A5"), Cells(Range("B65536").End(xlUp).Row, 19))
    ' MaSelection.Select
    MaSelection.SpecialCells(xlCellTypeVisible).Copy _
            ZoneColle
    Wb_source.Close False
 
End Sub