Private Sub Workbook_Open()
Dim t, i&, n&, mes$
t = [A1].CurrentRegion.Resize(, 7) 'matrice, plus rapide
For i = 2 To UBound(t)
If t(i, 7) <> "" Then n = n + 1: mes = mes & vbLf & "Echéance " & t(i, 6) & " Reste " & t(i, 7)
Next
MsgBox Mid(mes, 2), , " " & n & " période(s) d'essai en cours"
End Sub