Private Sub Workbook_Open()
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim mes As String 'déclare la variable mes (MESsage)
Dim test As Boolean 'déclare la variable test
mes = "Vous devez rappeler les clients suivants :" & Chr(13) 'définit le message mes
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
Set pl = .Range("F2:F" & .Cells(Application.Rows.Count, 1).End(xlUp).Row) 'définit la plage pl
End With 'fin de la prise en compte de ...
For Each cel In pl 'boucle sur toutes les cellules cel de la plage pl
If cel.Value <> "" Then 'condition : si la cellule n'est pas vide
'si la date est la date du jour, redéfinit le message mes, définit la variable test
If cel.Value = Date Then mes = mes & cel.Offset(0, -5).Value & Chr(13): test = True
End If 'fin de la condition
Next cel 'prochaine cellule de la boucle
If test = True Then MsgBox mes 'si test est vraie affiche le message mes
End Sub