Objet requis

Bonjour,

Je suis sous la version de 2010 d'EXCEL.
Je souhaite réaliser une macro pour me permettre d'avoir un msgbox lorsqu'une date arrive à échéance.
voici mes lignes de code

Sub macro1()

If mois.decaler(a5) > 23 Then
MsgBox "okok"
Else
MsgBox "pasokok"
End If

End Sub

Et lorsque que je souhaite l'activer, il me sort un msg "Objet requis"..
j'ai éssayer de trouver une solution sur le site de Microsoft, mais cela ne convient pas.