Automatisez des messages d'alerte

Bonjourà tous,
Une macro a été écrite dans MH 501 pour automatisez des messages d'alerte.
Malgré la rédaction mot pour mot la procédure ne marche pas (elle affiche une ligne comme sélection).
Quelqu'un à t il une idée sur le non fonctionnement? Merci d'avance.
2 images EnCours et Retard
Date maintenant() en B1
Dates en D7:Dxx
Les images doivent apparaitre en E7:Exx
Private Sub workbook_open()
Range("D7").EntireRow.Select
Do Until IsEmpty(ActiveCell.Value)
nb = ActiveCell.Row
If Range("D" & nb).Value > Range("E1").Value Then
ActiveSheet.Shapes("EnCours").Select
Selection.Copy
Range("E" & nb).Select
ActiveSheet.Paste
Selection.Locked = False
Else
ActiveSheet.Shapes("Retard").Select
Selection.Copy
Range("E" & nb).Select
ActiveSheet.Paste
Selection.Locked = False
End If
ActiveCell.Offset(1, 0).EntireRow.Select
Loop
end sub


Private Sub workbook_beforeclose(cancel As Boolean)
Sheets("Feuil2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.DrawingObjects.Select
Selection.Delete
ActiveSheet.Unprotect
end sub

A plus
Annette