Sub Macro1()
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Set CS = Workbooks("AUDIT.xlsm") 'définit le classeur source CS (extension à vérifier !)
Set OS = CS.Worksheets("setup") 'définit l'onglet source OS
Set CD = Workbooks("VALEUR.xlsx") 'définit le classeur destination CD (extension à vérifier !)
Set OD = CD.Worksheets("recap") 'définit l'onglet destination OD
OD.Range("A1").Value = OS.Range("B2").Value 'récupère la valeur de la cellule B2 de l'onglet source dans la cellule A1 de l'onglet destination
'OS.Range("B2").Copy OD.Range("A1") 'copie la valeur et les formats de la celllue B2 de l'onglet source dans la cellule A1 de l'onglet destination
End Sub