Sub Copy_To_BaseTest()
Dim Sortie As Workbook
Dim NomFichierSortie
Dim FeuilleOrigine As Worksheet, FeuilleDestination As Worksheet
Set FeuilleOrigine = ThisWorkbook.Sheets("Matrice_Artiste_Export")
NomFichierSortie = ThisWorkbook.Path & "\SauvTrav\Multimedia_BD.xls"
If NomFichierSortie <> False Then
Set Sortie = Workbooks.Open(NomFichierSortie)
Set FeuilleDestination = Sortie.Sheets("Matrice_Artiste_Receive")
With FeuilleOrigine
Range("A2", [B65000].End(xlUp)).Copy Destination:=FeuilleDestination.Range("A65536:B65536").End(xlUp)(2)
End With
Sortie.Close
End If
End Sub