Bonjour Banzai64 !
Merci pour ta réponse. Je viens de tenter ton code, un peu modifié pour se servir de la feuille de l'année précédente, qui, à priori, existera:
On Error Resume Next
Workbooks(fichier).Sheets(CStr(Year(Date))).Visible = True
If Err.Number > 0 Then
' Si erreur la page n'existe pas
Workbooks(fichier).Sheets(CStr(annee) - 1).Copy after:=Sheets(Sheets.Count) 'annee est une variable retournant l'année en cours
ActiveSheet.Name = Year(Date)
Workbooks(fichier).Worksheets(CStr(annee)).Range("B2:IV13").ClearContents
End If
On Error GoTo 0
Seulement, ça ne fait pas ce que je veux.. En effet, apparemment ça me renomme simplement la feuille de l'année n-1 en l'effaçant, mais ça n'en crée pas de nouvelle...