re bonsoir cedric,
un peu plus réfléchie
Sub Macro1()
Dim mois As Date, mois1 As Date
mois1 = Month(Now())
mois = Format(Range('a1').Value, 'MM')
If mois >= mois1 Then
MsgBox 'Faire le courrier', vbInformation, 'Mes contrats'
Else
Range('b2').Value = 'Bonjour'
End If
End Sub
Yves