Private Sub Workbook_open()
Dim d As Date, dl As Long
With Sheets("Suivi de BL et FACTURE")
d = Date
dl = .Range("N65536").End(xlUp).Row
For n = dl To 2 Step -1 'date maxi de l avoir
If d > .Range("N" & n) Then
If .Range("A" & n) = FAUX Then 'case a cocher et fournisseur
a = .Range("H" & n) 'montant de l voir et le fournisseur
r = d - .Range("N" & n).Value
MsgBox ("Retard du fournisseur " & .Range("N" & n) & _
" au montant de " & a & " € étant du pour le " & _
.Range("B" & n).Value & " n'a pas été payé et est en retard de " & _
r & " jours")
End If
End If
Next n
End With
End Sub