Private Sub Workbook_BeforePrint(Cancel As Boolean) ' Avant l'impression ou l'aperçu avant impression
Cells(1, 13) = Year(Now) ' Mettre en cellule M1 l'année en cours (Cells(Ligne,Colonne)
If Year(Now) <> Cells(1, 13) Then ' Si l'année en cours est différente de l'année en M1
Cells(1, 13) = Year(Now) ' Mettre l'année en cours en M1
Cells(1, 14) = 1 ' Mettre aussi 1 en N1
Else ' Sinon
Cells(1, 14) = Cells(1, 14) + 1 ' Ajouter 1 à la valeur en N1
End If
End Sub