Private Sub CommandButton1_Click()
Dim CS As Workbook 'décalre la variable CS (Classeur Source)
Dim CD As Workbook 'décalre la variable CD (Classeur Destination)
Dim OS As Object 'décalre la variable OS (Onglet Source)
Dim OD As Object 'décalre la variable OD (Onglet Destination)
Dim DEST As Range 'décalre la variable DEST (cellule de DESTination)
ActiveCell.Select 'ellève le focus au bouton
Set CS = Workbooks("formulaire_synthèse.xls") 'définit la classeur source CS
Set OS = CS.Sheets("Feuil1") 'définit l'onglet source OS
Set CD = ThisWorkbook 'définit la classeur destination CD
Set OD = CD.Sheets("Feuil1") 'définit l'onglet destination OD
Set DEST = OD.Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST
DEST.Value = OS.Range("E5").Value 'récupère la donnée
DEST.Offset(0, 1).Value = OS.Range("E7").Value 'récupère la donnée
DEST.Offset(0, 2).Value = OS.Range("E9").Value 'récupère la donnée
DEST.Offset(0, 3).Value = OS.Range("E10").Value 'récupère la donnée
DEST.Offset(0, 4).Value = OS.Range("E15").Value 'récupère la donnée
DEST.Offset(0, 5).Value = OS.Range("E16").Value 'récupère la donnée
DEST.Offset(0, 6).Value = OS.Range("E17").Value 'récupère la donnée
DEST.Offset(0, 7).Value = OS.Range("E18").Value 'récupère la donnée
DEST.Offset(0, 8).Value = OS.Range("E19").Value 'récupère la donnée
CD.Save 'enregiste le classeur destination CD
CS.Close SaveChanges:=False 'ferme le classeur source CS sans enregistrer
End Sub