Private Sub Workbook_Open()
Dim i As Long, Msg As String
For Each Feuille In Worksheets
With Feuille
For i = 6 To .Cells(Rows.Count, 8).End(xlUp).Row
If .Cells(i, 8).Value <= Date - 5 And .Cells(i, 9) = "" Then Msg = Msg & .Name & .Cells(i, 8).Value & vbLf
Next i
End With
If Len(Msg) > 0 Then MsgBox "Attention, des demandes ne sont toujours pas traitées" & vbLf & Msg
End Sub