Sub test()
Dim Cel As Range
With Sheets("Mars")
For Each Cel In .Range(.[K9], .Cells(Rows.Count, "K").End(xlUp))
If Cel.Offset(0, 3) <> "Résolu" Then
If Date < Cel And Cel - Now <= 0.25 Then MsgBox "Ticket N° " & Cel.Offset(0, -9), vbCritical
End If
Next Cel
End With
End Sub