Enregistrement à partir de "Workbook_BeforeSave"

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)

Set CS = ThisWorkbook 'définit la classeur source CS
Set OS = CS.ActiveSheet 'définit l'onglet source OS [il serait préférable de le nommer du style : OS = CS.Worksheets("Feuil1")]
CA = CS.Path & "\" 'définit la chemin d'accès CA (si ce n'est pas le même il faudra le spécifier du style : CA = "C\blabla\bloblo\blibli\"
Set CD = Workbooks.Open(CA & "WEB Test.xls") 'définit le classeur destination CD en l'ouvrant
Set OD = CD.Worksheets(1) 'définit l'onglet source OS [il serait préférable de le nommer du style : OD = CD.Worksheets("Feuil1")]
OS.Range("B3:P27").Copy OD.Range("B3") 'copie la plage B3:P27 de l'onglet source et la colle dans B3 de l'onglet destination
CD.Close True 'ferme le classeur destination CD en enregistrant les modification
OS.Range("B3").Select 'sélectionne B3 de l'onglet source OS
End Sub