alerte mensuelle

Bonjour Yann,
je te joins une procédure qui m'avait été donné sur ce forum il ya quelques temps déjà:
Il faudra que la date soit saisie manuellement.

Private Sub Workbook_Activate()

If Range('A1').Value < Date Then
MsgBox ('Mettre ici le message d'alarme')
Else: MsgBox ('alarme dans :' _
& Range('A1').Value - Date & ' jour(s)')
End If

End Sub

quelqu'un a peut être une solution pour la date du premier lundi du mois s'insrive automatiquement ???

Bonne journée
Didier