VBA: liste de nom selon date dans une messageBox

Sub Liste()
Dim P As Range, ncol%, an%, i&, j%, mes$, n&
Set P = Feuil1.UsedRange 'CodeName de la feuille
ncol = P.Columns.Count
an = Year(Date)
For i = 2 To P.Rows.Count
  For j = 2 To ncol
    If IsDate(P(i, j)) Then If Year(P(i, j)) = an Then _
      mes = mes & ", " & P(i, 1).Text: n = n + 1: Exit For
  Next j
Next i
MsgBox n & " noms en " & an & " :" & vbLf & Mid(mes, 3)
End Sub

Sub Liste()
Dim an%, decal As Byte, r As Range, dat, mes$, n&
an = Year(Date)
decal = 5
For Each r In Feuil1.UsedRange.Offset(, 1).Rows
  dat = r.Cells(1)
  If IsDate(dat) Then If (an - Year(dat)) Mod decal = 0 _
    Then If an >= Year(dat) And an <= Year(Application.Max(r)) _
      Then mes = mes & ", " & r.Cells(, 0).Text: n = n + 1
Next r
MsgBox n & " nom(s) en " & an & " :" & vbLf & Mid(mes, 3)
End Sub