Sub copierFeuille()
Dim fichierSource As String
Dim fichierCible As String
Dim xlFilename As String
Dim xlYear As Integer
'Je récupère le chemin jusqu'a mon classeur cible
xlFilename = ThisWorkbook.Path
xlYear = Year(Date)
xlFilename = xlFilename & "\Syntheses annuelles\" & xlYear & "\Synthese-" & xlYear & ".xlsx"
fichierSource = ActiveWorkbook.Name
fichierCible = xlFilename
Workbooks(fichierSource).Activate
ActiveSheet.Select
ActiveSheet.Copy After:=Workbooks(fichierCible).Worksheets(1)
End Sub