Bonjour le forum, bonjour emma,
Une première approche:
Private Sub Workbook_Open()
If Format(Date, 'DD/MM/YYYY') >= Range('feuil1!A1').Value Then
'a faire
MsgBox 'Faire le courrier', vbInformation, 'Mes contrats'
End If
End Sub
Code a glisser dans le classeur.
Vincent