Bonjour
Dans cette exemple, si à l'ouverture du fichier, la macro auto-open va te dire si c'est le dermier jour d'un mois
Sub auto-open()
madate=date
'madate = CDate(InputBox(""))' cette ligne est pour tester.
If Month(madate) <> Month(madate + 1) Then
MsgBox "dernier"
End If
End Sub