Option Explicit
Option Compare Text
Const BonDeCommande As String = "bon commande.xls"
Const FeuilleCible As String = "LAFEUILLECIBLE"
Const FeuilleSource As String = "LAFEUILLESOURCE"
Sub Open_Copy_Paste()
Dim MonClasseurSource As Workbook, MonClasseurCible As Workbook
Dim WB As Workbook
Dim LastCellCible As Range
Dim MonChemin As String
Dim Ouvert As Boolean
For Each WB In Workbooks
If WB.Name = BonDeCommande Then Ouvert = True
Next
Set MonClasseurSource = ThisWorkbook
MonChemin = MonClasseurSource.Path & "\"
If Ouvert = False Then
Set MonClasseurCible = Workbooks.Open(Filename:=MonChemin & BonDeCommande, UpdateLinks:=0)
Else
Set MonClasseurCible = Workbooks(BonDeCommande)
End If
Set LastCellCible = MonClasseurCible.Worksheets(FeuilleCible).Range("A65536").End(xlUp).Offset(1, 0)
MonClasseurSource.Worksheets(FeuilleSource).Activate
Selection.Copy LastCellCible
End Sub