Function GetMonthNum(ByVal sMonth As String) As Integer
Dim i As Integer
GetMonthNum = 0
For i = 1 To 12
If InStr(1, _
Replace(Replace(Format$("01/" & Format(CStr(i), "00") & "/00", "mmmm"), "é", "e"), "û", "u"), _
LCase$(Replace(Replace(sMonth, "é", "e"), "û", "u")), vbTextCompare) Then GetMonthNum = i: Exit For
Next i
End Function