En fait t'es un pro en la matière !! Mais le pb étant que de mon coté j'ai un peu de mal, ça fonctionne super bien sauf que maintenant il ne fait plus la différence entre les dates lol !
En gros mes codes sont exactement les suivants (j'ai du me tromper qqpart) :
Sub alerte ()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
z = Date - 3
y = Date - 8
If [A1] = z Then MsgBox 'Aujourdhui -3'
If [A1] = y Then MsgBox 'Aujourdhui -8'
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
z = Date - 3
y = Date - 8
adr = ActiveCell.Address
'If [A1] >= z Or [A1] <= y Then MsgBox 'Date comprise entre hier et aujourdhui -3'
If ActiveCell.Value >= z Or ActiveCell.Value <= y Then MsgBox 'Date comprise entre hier et aujourdhui -3' & Chr(13) & 'Référence de la cellule: ' & adr, vbInformation, 'Attention'
End sub
Merci en tout cas !