Function isBissext(annee) Dim ddate ddate = CDate("28/02/" & annee) If Month(ddate+1) = 2 Then isBissext = True Else isBissext = False End If End Function