Private Sub Workbook_Open()
Dim DerLig As Integer, DerCol As Integer, L As Integer, C As Integer, Chaine As String
DerLig = Sheets("Feuil1").Range("A65500").End(xlUp).Row ' Recherche dernière ligne
DerCol = 1 + Application.CountIf(Sheets("Feuil1").Range("3:3"), "*") ' Recherche dernière colonne
For L = 1 To DerLig ' Pour toutes les lignes
If Sheets("Feuil1").Cells(L, 1) = "Consentements" Then ' Si Consentements en colonne A
For C = 1 To DerCol ' Pour toutes les colonnes
If Sheets("Feuil1").Cells(L, C) = "Entrée au flux" And _
Sheets("Feuil1").Cells(L - 3, C) <= Int(Now) + 4 Then ' Si Entrée au flux dans moins de 4 jours
' On ajoute nom prénom date dans la chaine
Chaine = Chaine & Sheets("Feuil1").Cells(L, 2) & vbTab & " Entrée de flux :" & vbTab & Sheets("Feuil1").Cells(L - 3, C) & Chr(13)
End If
Next C
End If
Next L
If Chaine = "" Then
MsgBox "Pas d'entrée prévue.", , "Entrée au flux dans moins de 4 jours" ' On affiche le message Rien de prévu
Else
MsgBox Chaine, , "Entrée au flux dans moins de 4 jours" ' On affiche le message Liste des entrées
End If
End Sub