Sub finir_contrat()
Dim i As Integer
Dim Message as string
Message = '' & (vbLf)
i = 1
While Cells(i, 2) <> ''
If DateDiff('d', Now, Cells(i, 2)) <= 10 Then
Message = Message & Cells(i, 1) & (vbLf)
End If
i = i + 1
Wend
MsgBox 'contrat arrivant à terme: ' & Message
End Sub