Private Sub Workbook_Open()
Dim ligne As Integer, fin As Integer
fin = Sheets("registre de suivi").[B65536].End(xlUp).Row
For ligne = 137 To fin
If Sheets("registre de suivi").Range("G" & ligne) < Date - 45 Then MsgBox "La ligne suivante a dépassé la date limite : " & ligne
Next ligne
End Sub