XL pour MAC Transfert de donnés sur un autre fichier excel ( VBA )

Sub transfertsuivi()

Dim Reponse As Integer
'
Reponse = MsgBox("Confirmez-vous le transfert de la feuille Suivi ?", vbYesNo)
If Reponse = vbYes Then
    Application.ScreenUpdating = True
  
    With Sheets("Suivi")
           Range("A8:J43").Select
           Selection.Copy
    End With

        Workbooks.Open Filename:= _
            "Z:/Users/arnaud/Document/fichiertest"
        Windows("fichiertest").Activate

                With Sheets("Donnée")

                Ligne = Sheets("Donnée").Cells(43, 2).End(xlUp).Row + 1

                If Ligne = 43 Then
                    MsgBox "Transfert impossible: tableau complet."
                    Exit Sub 'permet d'arrêter le transfert
                Else
              
                Application.ScreenUpdating = False
                          
                    Range(".Cells(Ligne, 2)").Select
                    ActiveSheet.Paste
    
                End With
              
                End If
                      
                Application.ScreenUpdating = True
      
            Application.ScreenUpdating = True

            MsgBox "Transfert Réussit."

Workbooks("fichiertest").Close True

Else
    MsgBox "Transfert interrompu."
End If
   
End Sub