Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 13 And Target.Row < 1000 Then
If Target.Value > DateSerial(Year(Range("B17") + 1), Month(Range("B17")), 0) Then MsgBox "Vous devez archiver vos comptes !", vbOKOnly, "ATTENTION"
End If
End Sub