Private Sub Workbook_Open()
Dim alertefin As Range
For Each alertefin In ActiveSheet.Range("alerte_fin")
Valeur = Cells(alertefin.Row, "B")
Statut = Right(Cells(alertefin.Row, "M"), 8)
If alertefin = Date And Statut <> "Terminée" Then
MsgBox "Délai atteint, la tâche " & Valeur & " est à effectuer aujourd’hui avant " & Format(CDate(Cells(alertefin.Row, 9)), "hh:mm") & " ", vbExclamation, "Début période de tâche"
End If
Next
End Sub