Private Sub Worksheet_Change(ByVal Target As Range)
Dim date1 As Date, date2 As Date, jours As Integer
Application.EnableEvents = False
date1 = Range("b2") 'Où tu as inscrit la formule =AUJOURD'HUI()
date2 = Date
jours = DateDiff("d", date1, date2)
If jours >= 40 Or jours >= 50 Or jours >= 60 Or jours >= 70 Or jours >= 90 Then
MsgBox " Veuillez relancer le client.", , "RELANCE"
Else
MsgBox " En attente", , "RELANCE"
End If
Application.EnableEvents = True
End Sub