Option Explicit
Private Sub Workbook_Open()
'Définition des variables :
Dim ColDossier As String, ColDate As String, ColEvenement
'Affectation des variables
ColDossier = "A"
ColEvenement = "F"
ColDate = "I"
'Départ de la boucle à la dernière cellule de la feuille
ActiveCell.SpecialCells(xlLastCell).Select
Cells(ActiveCell.Row, ColDate).Select
Selection.End(xlUp).Select
'Début Boucle :
Do While ActiveCell.Row > 4 'pas d'action sur les lignes 1 à 4
If ActiveCell.Value > 1 And ActiveCell.Value < Date - 15 Then 'controle valeur de date
MsgBox "Attention dossier n° " & _
IIf(Cells(ActiveCell.Row, ColDossier).Value = "", _
Cells(ActiveCell.Row, ColDossier).End(xlUp).Value, _
Cells(ActiveCell.Row, ColDossier).Value) & _
" échéance dépassée !" & Chr(10) & "Sujet : " & _
Cells(ActiveCell.Row, ColEvenement).Value 'affiche le message
End If
ActiveCell.Offset(-1, 0).Select 'passe une ligne
Loop
'Fin Boucle.
End Sub