Bonjour,
Sub test()
Dim pl As Range, c As Range, an As Long
Set pl = Range("F10:F33").SpecialCells(xlCellTypeBlanks)
For Each c In pl
an = c.Offset(, -2).MergeArea.Range("A1")
If an = Year(Date) And Month(CDate("1 " & c.Offset(, -1))) < Month(Date) Then
MsgBox "mois : " & c.Offset(, -1) & " " & an
End If
Next c
End Sub
eric
EDIT : ajout du contrôle du mois