Dim j As Integer
Dim CELL As Range, mes As String, DerLig As Long
With ThisWorkbook.Worksheets("Péremption") ' Le classeur où sont les données de dates d'expiration
For Each CELL In .Range("G2:G700").Cells
If DateDiff("d", Date, CDate(CELL.Value)) < 0 Then
mes = mes & Chr(149) & " " & CELL.Offset(, -4).Value & Space(1) & CELL.Offset(, -1).Value & _
" Expire dans " & DateDiff("d", Date, CDate(CELL.Value)) & " jours" & Chr(13) & vbCr
End If
Next CELL
MsgBox "ALERTE PEREMPTION AU " & Format(Now, "dd/mm/yyyy") & Chr(10) & Chr(10) & Chr(10) _
& Chr(13) & mes & vbCrLf & vbclrf, vbCritical, "Alert"
End With
End If