Private Sub Workbook_Open()
Dim Cel As Range, s As String
's est une chaine de caractères
s = "Attention échéance de paiement dans 10 JOURS pour les clients :"
'Pour chaque cellule de B2 à la fin de la colonne B
For Each Cel In Range("b2:" & Range("B2").End(xlDown).Address)
'Si la cellule est inférieur ou égale à aujourd'hui - 10 jours
If Cel.Value - 10 <= Date Then
'on ajoute au texte un retour chariot et le contenu de la cellule en colonne A
'(-1 = colonne à gauche de la cellule ou l'on se trouve)
s = s & vbCr & Cel.Offset(0, -1)
'Fin de la condition
End If
'prochaine cellule
Next Cel
'Si le dernier caractère à droite du texte n'est pas le caractère ":"
'Donc si on a ajouté du texte au texte de départ,
'on affiche le texte dans la boite de message
If Left(s, 1) <> ":" Then MsgBox s
End Sub