Du coup a ta place je ferais une ligne par mois pour que ca soit plus facile de chercher.
Ce code te permet d'avoir le mois actuel.
Sub month ()
dim mc, ml
mc = Format(Date, "mm")
MsgBox mc
ml = MonthName(mc, True)
MsgBox ml
End Sub
Puis tu interroges ton tableau.
Ca serait surement plus simple d'avoir deux boutons, un premier pour afficher juste le mois du moment et l'autre pour tout afficher.