Function GetMonthNum(ByVal sMonth As String) As Integer
Select Case LCase$(sMonth)
Case "janv", "janvier": GetMonthNum = 1
Case "févr", "février", "fevr", "fevrier": GetMonthNum = 2
Case "mars": GetMonthNum = 3
Case "avr", "avril": GetMonthNum = 4
Case "mai": GetMonthNum = 5
Case "juin": GetMonthNum = 6
Case "juil", "juillet": GetMonthNum = 7
Case "août", "aout": GetMonthNum = 8
Case "sept", "septembre": GetMonthNum = 9
Case "oct", "octobre": GetMonthNum = 10
Case "nov", "novembre": GetMonthNum = 11
Case "déc", "décembre", "dec", "decembre": GetMonthNum = 12
Case Else: GetMonthNum = 0
End Select
End Function